3 files changed, 18 insertions, 0 deletions
diff --git a/script/fixmystreet_app_create.pl b/script/fixmystreet_app_create.pl
index c0ec0c898..f43c4ab82 100755
--- a/script/fixmystreet_app_create.pl
+++ b/script/fixmystreet_app_create.pl
@@ -3,6 +3,13 @@
 use strict;
 use warnings;
 
+BEGIN {
+    use File::Basename qw(dirname);
+    use File::Spec;
+    my $d = dirname(File::Spec->rel2abs($0));
+    require "$d/../setenv.pl";
+}
+
 use Catalyst::ScriptRunner;
 Catalyst::ScriptRunner->run('FixMyStreet::App', 'Create');
 
diff --git a/script/fixmystreet_app_server.pl b/script/fixmystreet_app_server.pl
index 3778cf27d..aeb57f0d2 100755
--- a/script/fixmystreet_app_server.pl
+++ b/script/fixmystreet_app_server.pl
@@ -2,6 +2,10 @@
 
 BEGIN {
     $ENV{CATALYST_SCRIPT_GEN} = 40;
+    use File::Basename qw(dirname);
+    use File::Spec;
+    my $d = dirname(File::Spec->rel2abs($0));
+    require "$d/../setenv.pl";
 }
 
 use Catalyst::ScriptRunner;
diff --git a/script/fixmystreet_app_test.pl b/script/fixmystreet_app_test.pl
index 4eefd06a4..6f2770730 100755
--- a/script/fixmystreet_app_test.pl
+++ b/script/fixmystreet_app_test.pl
@@ -1,5 +1,12 @@
 #!/usr/bin/env perl
 
+BEGIN {
+    use File::Basename qw(dirname);
+    use File::Spec;
+    my $d = dirname(File::Spec->rel2abs($0));
+    require "$d/../setenv.pl";
+}
+
 use Catalyst::ScriptRunner;
 Catalyst::ScriptRunner->run('FixMyStreet::App', 'Test');