[Opensrf-commits] r1385 - trunk/bin

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-08-03 21:43:34 -0400 (Sun, 03 Aug 2008)
New Revision: 1385

Modified:
   trunk/bin/opensrf-perl.pl
Log:
wait for the parent proc to go away before we unlink the file

Modified: trunk/bin/opensrf-perl.pl
===================================================================
--- trunk/bin/opensrf-perl.pl	2008-08-03 23:45:57 UTC (rev 1384)
+++ trunk/bin/opensrf-perl.pl	2008-08-04 01:43:34 UTC (rev 1385)
@@ -57,6 +57,7 @@
     if(-e $pid_file) {
         my $pid = `cat $pid_file`;
         kill('INT', $pid);
+        waitpid($pid, 0);
         unlink $pid_file;
     } else {
         msg("$service not running");