3 files changed, 5 insertions, 7 deletions
diff --git a/perllib/FixMyStreet/DB/ResultSet/AlertType.pm b/perllib/FixMyStreet/DB/ResultSet/AlertType.pm
index bf085e32a..c1a5d65c9 100644
--- a/perllib/FixMyStreet/DB/ResultSet/AlertType.pm
+++ b/perllib/FixMyStreet/DB/ResultSet/AlertType.pm
@@ -4,8 +4,6 @@ use base 'DBIx::Class::ResultSet';
 use strict;
 use warnings;
 
-use File::Slurp;
-
 use mySociety::DBHandle qw(dbh);
 use mySociety::EmailUtil;
 use mySociety::Gaze;
@@ -189,7 +187,7 @@ sub _send_aggregated_alert_email(%) {
         unless -e $template;
     $template = FixMyStreet->path_to( "templates", "email", "default", "$data{template}.txt" )->stringify
         unless -e $template;
-    $template = File::Slurp::read_file($template);
+    $template = Utils::read_file($template);
 
     my $sender = $cobrand->contact_email;
     (my $from = $sender) =~ s/team/fms-DO-NOT-REPLY/; # XXX
diff --git a/perllib/FixMyStreet/DB/ResultSet/Problem.pm b/perllib/FixMyStreet/DB/ResultSet/Problem.pm
index 44c066454..59227fce8 100644
--- a/perllib/FixMyStreet/DB/ResultSet/Problem.pm
+++ b/perllib/FixMyStreet/DB/ResultSet/Problem.pm
@@ -66,7 +66,7 @@ sub recent {
     my $result = Memcached::get($key);
     if ( $result ) {
         # Need to reattach schema so that confirmed column gets reinflated.
-        $result->[0]->result_source->schema( $rs->result_source->schema );
+        $result->[0]->result_source->schema( $rs->result_source->schema ) if $result->[0];
     } else {
         $result = [ $rs->search( {
             state => [ FixMyStreet::DB::Result::Problem->visible_states() ]
diff --git a/perllib/FixMyStreet/DB/ResultSet/Questionnaire.pm b/perllib/FixMyStreet/DB/ResultSet/Questionnaire.pm
index 665e0e3e0..0cf01b6d1 100644
--- a/perllib/FixMyStreet/DB/ResultSet/Questionnaire.pm
+++ b/perllib/FixMyStreet/DB/ResultSet/Questionnaire.pm
@@ -3,7 +3,7 @@ use base 'DBIx::Class::ResultSet';
 
 use strict;
 use warnings;
-use File::Slurp;
+use Encode;
 use Utils;
 use mySociety::EmailUtil;
 
@@ -57,12 +57,12 @@ sub send_questionnaires_period {
         my $template;
         if ($params->{site} eq 'emptyhomes') {
             ($template = $period) =~ s/ //;
-            $template = File::Slurp::read_file( FixMyStreet->path_to( "templates/email/emptyhomes/" . $row->lang . "/questionnaire-$template.txt" )->stringify );
+            $template = Utils::read_file( FixMyStreet->path_to( "templates/email/emptyhomes/" . $row->lang . "/questionnaire-$template.txt" )->stringify );
         } else {
             $template = FixMyStreet->path_to( "templates", "email", $cobrand->moniker, "questionnaire.txt" )->stringify;
             $template = FixMyStreet->path_to( "templates", "email", "default", "questionnaire.txt" )->stringify
                 unless -e $template;
-            $template = File::Slurp::read_file( $template );
+            $template = Utils::read_file( $template );
         }
 
         my %h = map { $_ => $row->$_ } qw/name title detail category/;