import FCGI-ProcManager 0.19 from CPAN

git-cpan-module:   FCGI-ProcManager
git-cpan-version:  0.19
git-cpan-authorid: GBJK
git-cpan-file:     authors/id/G/GB/GBJK/FCGI-ProcManager-0.19.tar.gz

diff --git a/META.yml b/META.yml
index 8b65d90..394849d 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -1,10 +1,21 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         FCGI-ProcManager
-version:      0.18
-version_from: ProcManager.pm
-installdirs:  site
-requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+--- #YAML:1.0
+name:               FCGI-ProcManager
+version:            0.19
+abstract:           A perl-based FastCGI process manager
+author:
+    - James E Jurach (muaddib@erf.net)
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:  {}
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.50
+meta-spec:
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

diff --git a/ProcManager.pm b/ProcManager.pm
index 4608d56..f8e0797 100644 (file)
--- a/ProcManager.pm
+++ b/ProcManager.pm
@@ -13,7 +13,7 @@ use POSIX qw(:signal_h);
 
 use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS $Q $SIG_CODEREF);
 BEGIN {
-  $VERSION = '0.18'; 
+  $VERSION = '0.19'; 
   @ISA = qw(Exporter);
   @EXPORT_OK = qw(pm_manage pm_die pm_wait
                  pm_write_pid_file pm_remove_pid_file
@@ -139,6 +139,7 @@ default values.  The default parameter values currently are:
  role         => manager
  start_delay  => 0
  die_timeout  => 60
+ pm_title => 'perl-fcgi-pm'
 
 =cut
 
@@ -150,6 +151,7 @@ sub new {
              role => "manager",
              start_delay => 0,
              die_timeout => 60,
+        pm_title => 'perl-fcgi-pm',
              %$init
             };
   bless $this, ref($proto)||$proto;
@@ -276,7 +278,7 @@ sub managing_init {
   }
 
   # change the name of this process as it appears in ps(1) output.
-  $this->pm_change_process_name("perl-fcgi-pm");
+  $this->pm_change_process_name($this->pm_parameter('pm_title'));
 
   $this->pm_write_pid_file();
 }