[Catalyst-commits] r9814 - Catalyst-Devel/1.00/branches/improved-restarter/lib/Catalyst

[autarch at dev.catalyst.perl.org]

Author: autarch
Date: 2009-04-24 03:09:45 +0100 (Fri, 24 Apr 2009)
New Revision: 9814

Modified:
   Catalyst-Devel/1.00/branches/improved-restarter/lib/Catalyst/Helper.pm
Log:
Restore background feature lost in branch creation.


Modified: Catalyst-Devel/1.00/branches/improved-restarter/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.00/branches/improved-restarter/lib/Catalyst/Helper.pm	2009-04-24 02:08:29 UTC (rev 9813)
+++ Catalyst-Devel/1.00/branches/improved-restarter/lib/Catalyst/Helper.pm	2009-04-24 02:09:45 UTC (rev 9814)
@@ -969,6 +969,7 @@
 my $port              = $ENV{[% appenv %]_PORT} || $ENV{CATALYST_PORT} || 3000;
 my $keepalive         = 0;
 my $restart           = $ENV{[% appenv %]_RELOAD} || $ENV{CATALYST_RELOAD} || 0;
+my $background        = 0;
 
 my $check_interval;
 my $file_regex;
@@ -989,6 +990,7 @@
     'restartregex|rr=s'   => \$file_regex,
     'restartdirectory=s@' => \$watch_directory,
     'followsymlinks'      => \$follow_symlinks,
+    'background'          => \$background,
 );
 
 pod2usage(1) if $help;
@@ -1009,9 +1011,10 @@
     [% name %]->run(
         $port, $host,
         {
-            argv      => \@argv,
-            'fork'    => $fork,
-            keepalive => $keepalive,
+            argv       => \@argv,
+            'fork'     => $fork,
+            keepalive  => $keepalive,
+            background => $background,
         }
     );
 };