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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2010-12-05 12:33:40 +0000 (Sun, 05 Dec 2010)
New Revision: 13760

Modified:
   Catalyst-Runtime/5.80/trunk/Changes
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/FastCGI.pm
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Script/FastCGI.pm
   Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_script_fastcgi.t
Log:
Rename --title to --proc_title as that makes more sense. Remove -t option as it's confusing..

Modified: Catalyst-Runtime/5.80/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.80/trunk/Changes	2010-12-05 12:22:56 UTC (rev 13759)
+++ Catalyst-Runtime/5.80/trunk/Changes	2010-12-05 12:33:40 UTC (rev 13760)
@@ -1,5 +1,9 @@
 # This file documents the revision history for Perl extension Catalyst.
 
+ New features:
+  - Add a --proc_title option to the FCGI script to set the process
+    title.
+
  Bug fixes:
   - Deal correctly with GLOB file handles in the response body (setting
     the Content-Length header appropriately)

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/FastCGI.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/FastCGI.pm	2010-12-05 12:22:56 UTC (rev 13759)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/FastCGI.pm	2010-12-05 12:33:40 UTC (rev 13760)
@@ -113,7 +113,7 @@
     if ($listen) {
         $options->{manager} ||= "FCGI::ProcManager";
         $options->{nproc}   ||= 1;
-        $options->{title}   ||= "perl-fcgi-pm [$class]";
+        $options->{proc_title} ||= "perl-fcgi-pm [$class]";
 
         $self->daemon_fork() if $options->{detach};
 
@@ -124,7 +124,7 @@
                 {
                     n_processes => $options->{nproc},
                     pid_fname   => $options->{pidfile},
-                    pm_title => $options->{title},
+                    pm_title => $options->{proc_title},
                 }
             );
 

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Script/FastCGI.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Script/FastCGI.pm	2010-12-05 12:22:56 UTC (rev 13759)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Script/FastCGI.pm	2010-12-05 12:33:40 UTC (rev 13760)
@@ -55,9 +55,8 @@
     documentation => 'Specify a number of child processes',
 );
 
-has title => (
+has proc_title => (
     traits        => [qw(Getopt)],
-    cmd_aliases   => 't',
     isa           => Str,
     is            => 'ro',
     documentation => 'Set the process title',
@@ -73,7 +72,7 @@
             manager => $self->manager,
             detach  => $self->daemon,
             keep_stderr => $self->keeperr,
-            title => $self->title,
+            proc_title => $self->proc_title,
         }
     );
 }
@@ -89,23 +88,23 @@
   myapp_fastcgi.pl [options]
 
  Options:
-   -? --help      display this help and exits
-   -l --listen    Socket path to listen on
-                  (defaults to standard input)
-                  can be HOST:PORT, :PORT or a
-                  filesystem path
-   -n --nproc     specify number of processes to keep
-                  to serve requests (defaults to 1,
-                  requires -listen)
-   -p --pidfile   specify filename for pid file
-                  (requires -listen)
-   -d --daemon    daemonize (requires -listen)
-   -M --manager   specify alternate process manager
-                  (FCGI::ProcManager sub-class)
-                  or empty string to disable
-   -e --keeperr   send error messages to STDOUT, not
-                  to the webserver
-   -t --title     set the process title
+   -? --help       display this help and exits
+   -l --listen     Socket path to listen on
+                   (defaults to standard input)
+                   can be HOST:PORT, :PORT or a
+                   filesystem path
+   -n --nproc      specify number of processes to keep
+                   to serve requests (defaults to 1,
+                   requires -listen)
+   -p --pidfile    specify filename for pid file
+                   (requires -listen)
+   -d --daemon     daemonize (requires -listen)
+   -M --manager    specify alternate process manager
+                   (FCGI::ProcManager sub-class)
+                   or empty string to disable
+   -e --keeperr    send error messages to STDOUT, not
+                   to the webserver
+      --proc_title set the process title
 
 =head1 DESCRIPTION
 

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	2010-12-05 12:22:56 UTC (rev 13759)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_script_fastcgi.t	2010-12-05 12:33:40 UTC (rev 13760)
@@ -39,9 +39,8 @@
 testOption( [ qw/--nproc 6/ ], [undef, opthash(nproc => 6)] );
 testOption( [ qw/--n 6/ ], [undef, opthash(nproc => 6)] );
 
-# title
-testOption( [ qw/--title foo/ ], [undef, opthash(title => 'foo')] );
-testOption( [ qw/-t foo/ ], [undef, opthash(title => 'foo')] );
+# proc_title
+testOption( [ qw/--proc_title foo/ ], [undef, opthash(proc_title => 'foo')] );
 
 done_testing;
 
@@ -66,7 +65,7 @@
         detach => undef,
         nproc => undef,
         manager => undef,
-        title => undef,
+        proc_title => undef,
         @_,
     };
 }