X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine.pm;h=a2cc178bb8361935fe6a833611346b14a8fd4a04;hb=f7a3f8fd0a1df1dc3f5811747cfa377a020b9dcc;hp=691962576674a1caa6800616609cc9226e68886f;hpb=f7f55b2f120335b9c3ff53cc7f45378241d884c3;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 6919625..a2cc178 100644
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -791,8 +791,14 @@ sub run {
     # like Gitalist's --git_dir are possible to get from the app without stupid tricks.
     my $server = pop @args if (scalar @args && blessed $args[-1]);
     my $options = pop @args if (scalar @args && ref($args[-1]) eq 'HASH');
+    # Back compat hack for applications with old (non Catalyst::Script) scripts to work in FCGI.
+    if (scalar @args && !ref($args[0])) {
+        if (my $listen = shift @args) {
+            $options->{listen} ||= [$listen];
+        }
+    }
     if (! $server ) {
-        $server = Catalyst::EngineLoader->new(application_name => ref($self))->auto();
+        $server = Catalyst::EngineLoader->new(application_name => ref($self))->auto(%$options);
         # We're not being called from a script, so auto detect what backend to
         # run on.  This should never happen, as mod_perl never calls ->run,
         # instead the $app->handle method is called per request.