The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Changes 03
META.yml 1012
Makefile.PL 39
PidUtil.pm 22
README 098
5 files changed (This is a version diff) 15124
@@ -1,5 +1,8 @@
 Revision history for Perl extension Proc::PidUtil
 
+0.09  Mon Jan 27 11:59:58 PST 2014
+        modify Makefile.PL to bypass missing 'pod2text'
+
 0.08  Mon Sep 11 18:54:05 PDT 2006
 	'mkdir' updated from comptability with perl 5.0503
 
@@ -1,10 +1,12 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         Proc-PidUtil
-version:      0.08
-version_from: PidUtil.pm
-installdirs:  site
-requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+--- #YAML:1.0
+name:                Proc-PidUtil
+version:             0.09
+abstract:            ~
+license:             ~
+author:              ~
+generated_by:        ExtUtils::MakeMaker version 6.42
+distribution_type:   module
+requires:     
+meta-spec:
+    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
+    version: 1.3
@@ -23,10 +23,16 @@ sub MY::top_targets {
 }
 
 sub MY::post_constants {
-  my $post_constants = q|
-MY_POD2TEXT = |. $Config{scriptdirexp} .'/pod2text' .q|   
+  my $post_constants = $Config{scriptdirexp} .'/pod2text';
+  if (-e $post_constants) {
+    $post_constants = q|
+MY_POD2TEXT = |. $post_constants .q|
 |;
-} 
+  } else {   
+    $post_constants = q|
+MY_POD2TEXT = echo "perl distro missing 'pod2text' to convert " |;
+  }
+}
 
 sub MY::postamble {
   package MY;
@@ -8,7 +8,7 @@ use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = do { my @r = (q$Revision: 0.08 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = do { my @r = (q$Revision: 0.09 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 %EXPORT_TAGS = (
   all	=> [qw(
@@ -188,7 +188,7 @@ sub get_script_name {
 
 =head1 COPYRIGHT
 
-Copyright 2003 -2004, Michael Robinton <michael@bizsystems.com>
+Copyright 2003 -2014, Michael Robinton <michael@bizsystems.com>
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -0,0 +1,98 @@
+NAME
+    Proc::PidUtil - PID file management utilities
+
+SYNOPSIS
+      use Proc::PidUtil qw(
+            if_run_exit
+            is_running
+            make_pidfile
+            zap_pidfile
+            get_script_name
+            :all
+      );
+
+DESCRIPTION
+    Proc::PidUtil provides utilities to manage PID files
+
+    * $rv = if_run_exit('path',$message);
+      This routine checks for a file named:
+
+        '(scriptname).pid
+
+      in the the $path directory. If a file is found and the PID found in
+      the file is currently a running job, there is no return, the
+      subroutine prints the (scriptname): $pid, $message to STDERR and
+      exits.
+
+      If there is no file or the PID does not match a running job, run_exit
+      returns true.
+
+        input:        path for pidfiles
+        return:       true if not running
+                      else exits
+
+      Note: also exits if $path is false
+
+    * $rv = is_running('path2pidfile');
+      Check that the job described by the pid file is running.
+
+        input:        path 2 pid file
+        returns:      pid or false (0) if not running
+
+    * $rv = make_pidfile('path2pidfile',$pid);
+      Open a pid file and insert the pid value.
+
+        input:        path 2 pid file,
+                      pid value || $$
+        returns:      pid or false (0) on error
+
+    * $rv = zap_pidfile($path);
+        input:        path for pidfiles
+        returns:      return value of 'unlink'
+
+    * $me = get_script_name();
+      This function returns the script name portion of the path found in $0;
+
+        input:        none
+        returns:      script name
+
+        i.e.  if the script name is:
+        /usr/local/stuff/scripts/sc_admin.pl
+
+        $me = get_script_name();
+
+        returns ('sc_admin.pl')
+
+DEPENDENCIES
+            none
+  
+EXPORT_OK
+            if_run_exit
+            is_running
+            make_pidfile
+            zap_pidfile
+            get_script_name
+
+EXPORT_TAGS
+            :all
+
+COPYRIGHT
+    Copyright 2003 -2014, Michael Robinton <michael@bizsystems.com>
+
+    This program is free software; you can redistribute it and/or modify it
+    under the terms of the GNU General Public License as published by the
+    Free Software Foundation; either version 2 of the License, or (at your
+    option) any later version.
+
+    This program is distributed in the hope that it will be useful, but
+    WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
+    Public License for more details.
+
+    You should have received a copy of the GNU General Public License along
+    with this program; if not, write to the Free Software Foundation, Inc.,
+    59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+AUTHOR
+    Michael Robinton <michael@bizsystems.com>
+