From 80d5e66ccc5b0d99db1391e035b584e9ae015339 Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew@mysociety.org>
Date: Tue, 18 Feb 2020 09:13:43 +0000
Subject: Fix password setting in createsuperuser script.

---
 perllib/DBIx/Class/FixMyStreet/EncodedColumn.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perllib/DBIx/Class/FixMyStreet/EncodedColumn.pm')

diff --git a/perllib/DBIx/Class/FixMyStreet/EncodedColumn.pm b/perllib/DBIx/Class/FixMyStreet/EncodedColumn.pm
index 3be6e4594..82e6e591e 100644
--- a/perllib/DBIx/Class/FixMyStreet/EncodedColumn.pm
+++ b/perllib/DBIx/Class/FixMyStreet/EncodedColumn.pm
@@ -10,7 +10,7 @@ sub set_column {
   my $self = shift;
   if ($_[0] eq 'password') {
     my $cobrand = $self->result_source->schema->cobrand;
-    if ($cobrand->moniker eq 'tfl') {
+    if ($cobrand && $cobrand->moniker eq 'tfl') {
       if (defined $_[1]) {
         if (defined $_[2]) {
           $self->set_extra_metadata(tfl_password => $_[1]);
-- 
cgit v1.2.3