fix compile errors

3 files changed, 7 insertions, 9 deletions

diff --git a/perllib/FixMyStreet/SendReport/EastHants.pm b/perllib/FixMyStreet/SendReport/EastHants.pm
index aa290742e..61c38e591 100644
--- a/perllib/FixMyStreet/SendReport/EastHants.pm
+++ b/perllib/FixMyStreet/SendReport/EastHants.pm
@@ -1,11 +1,11 @@
-package FixMyStreet::SendReport::Email;
+package FixMyStreet::SendReport::EastHants;
 
 use Moose;
-use namespace::autoclean;
 
 BEGIN { extends 'FixMyStreet::SendReport'; }
 
-use Error qw(:try);
+# export just what we need as error if we use :try
+use Error qw(try otherwise);
 use Encode;
 use mySociety::Web qw(ent);
 use EastHantsWSDL;
diff --git a/perllib/FixMyStreet/SendReport/Email.pm b/perllib/FixMyStreet/SendReport/Email.pm
index f2ef1bfee..0b8ac8115 100644
--- a/perllib/FixMyStreet/SendReport/Email.pm
+++ b/perllib/FixMyStreet/SendReport/Email.pm
@@ -1,7 +1,6 @@
 package FixMyStreet::SendReport::Email;
 
 use Moose;
-use namespace::autoclean;
 
 BEGIN { extends 'FixMyStreet::SendReport'; }
 
diff --git a/perllib/FixMyStreet/SendReport/London.pm b/perllib/FixMyStreet/SendReport/London.pm
index 29368314f..9296f2446 100644
--- a/perllib/FixMyStreet/SendReport/London.pm
+++ b/perllib/FixMyStreet/SendReport/London.pm
@@ -1,7 +1,6 @@
-package FixMyStreet::SendReport::Email;
+package FixMyStreet::SendReport::London;
 
 use Moose;
-use namespace::autoclean;
 
 BEGIN { extends 'FixMyStreet::SendReport'; }
 
@@ -88,9 +87,9 @@ sub send {
     my ($team) = $out =~ /<team>(.*?)<\/team>/;
 
     $org = london_lookup($org);
-    $problem->external_id( $id );
-    $problem->external_body( $org );
-    $problem->external_team( $team );
+    $row->external_id( $id );
+    $row->external_body( $org );
+    $row->external_team( $team );
     return 0;
 }