[Catalyst-commits] r10064 - in Catalyst-Devel/1.00/trunk: . lib/Catalyst

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-10 16:07:39 +0000 (Sun, 10 May 2009)
New Revision: 10064

Modified:
   Catalyst-Devel/1.00/trunk/Changes
   Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm
Log:
Catalyst::Devel - add pidfile option to _server.pl

Modified: Catalyst-Devel/1.00/trunk/Changes
===================================================================
--- Catalyst-Devel/1.00/trunk/Changes	2009-05-10 16:07:37 UTC (rev 10063)
+++ Catalyst-Devel/1.00/trunk/Changes	2009-05-10 16:07:39 UTC (rev 10064)
@@ -1,5 +1,6 @@
 This file documents the revision history for Perl extension Catalyst-Devel.
 
+        - add [-pidfile|-p] option for myapp_server.pl (caelum)
         - kill C3 warning on 5.10, add resources to META.yml (caelum)
 
 1.12    2009-04-26 15:42

Modified: Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm	2009-05-10 16:07:37 UTC (rev 10063)
+++ Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm	2009-05-10 16:07:39 UTC (rev 10064)
@@ -974,6 +974,7 @@
 my $restart_directory = undef;
 my $follow_symlinks   = 0;
 my $background        = 0;
+my $pidfile           = undef;
 
 my @argv = @ARGV;
 
@@ -990,6 +991,7 @@
     'restartdirectory=s@' => \$restart_directory,
     'followsymlinks'      => \$follow_symlinks,
     'background'          => \$background,
+    'pidfile|p=s'         => \$pidfile,
 );
 
 pod2usage(1) if $help;
@@ -1015,6 +1017,7 @@
     restart_directory => $restart_directory,
     follow_symlinks   => $follow_symlinks,
     background        => $background,
+    pidfile           => $pidfile,
 } );
 
 1;