[Catalyst-commits] r12387 - in Catalyst-Runtime/5.80/trunk: . lib/Catalyst/Script t/aggregate

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-12-15 10:21:32 +0000 (Tue, 15 Dec 2009)
New Revision: 12387

Modified:
   Catalyst-Runtime/5.80/trunk/Changes
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Script/FastCGI.pm
   Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_script_fastcgi.t
Log:
Bug fix for issue reported on the mailing list by Toby Corkindale

Modified: Catalyst-Runtime/5.80/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.80/trunk/Changes	2009-12-15 07:12:31 UTC (rev 12386)
+++ Catalyst-Runtime/5.80/trunk/Changes	2009-12-15 10:21:32 UTC (rev 12387)
@@ -1,5 +1,9 @@
 # This file documents the revision history for Perl extension Catalyst.
 
+  Bug fixes:
+   - Remove the erroneous --detach option from Catalyst::Script::FastCGI
+   - --daemon option to Catalyst::Script::FastCGI is fixed.
+
 5.80016 2009-12-11 23:23:33
 
   Bug fixes:

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Script/FastCGI.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Script/FastCGI.pm	2009-12-15 07:12:31 UTC (rev 12386)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Script/FastCGI.pm	2009-12-15 10:21:32 UTC (rev 12387)
@@ -55,14 +55,6 @@
     documentation => 'Specify a number of child processes',
 );
 
-has detach => (
-    traits        => [qw(Getopt)],
-    cmd_aliases   => 'det',
-    isa           => Bool,
-    is            => 'ro',
-    documentation => 'Detach this FastCGI process',
-);
-
 sub _application_args {
     my ($self) = shift;
     return (
@@ -71,7 +63,7 @@
             nproc   => $self->nproc,
             pidfile => $self->pidfile,
             manager => $self->manager,
-            detach  => $self->detach,
+            detach  => $self->daemon,
             keep_stderr => $self->keeperr,
         }
     );

Modified: Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_script_fastcgi.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_script_fastcgi.t	2009-12-15 07:12:31 UTC (rev 12386)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_script_fastcgi.t	2009-12-15 10:21:32 UTC (rev 12387)
@@ -19,8 +19,8 @@
 testOption( [ qw/-l 127.0.0.1:3000/ ], ['127.0.0.1:3000', opthash()] );
 
 #daemonize           -d --daemon
-testOption( [ qw/-d/ ], [undef, opthash()] );
-testOption( [ qw/--daemon/ ], [undef, opthash()] );
+testOption( [ qw/-d/ ], [undef, opthash(detach => 1)] );
+testOption( [ qw/--daemon/ ], [undef, opthash(detach => 1)] );
 
 # pidfile        -pidfile -p                 --pid --pidfile
 testOption( [ qw/--pidfile cat.pid/ ], [undef, opthash(pidfile => 'cat.pid')] );
@@ -39,10 +39,6 @@
 testOption( [ qw/--nproc 6/ ], [undef, opthash(nproc => 6)] );
 testOption( [ qw/--n 6/ ], [undef, opthash(nproc => 6)] );
 
-# detach
-testOption( [ qw/--detach/ ], [undef, opthash(detach => 1)] );
-testOption( [ qw/--det/ ], [undef, opthash(detach => 1)] );
-
 done_testing;
 
 sub testOption {