wait for the parent proc to go away before we unlink the file
[OpenSRF.git] / bin / opensrf-perl.pl
index 3ab5f57..7211601 100755 (executable)
@@ -57,6 +57,7 @@ sub do_stop {
     if(-e $pid_file) {
         my $pid = `cat $pid_file`;
         kill('INT', $pid);
     if(-e $pid_file) {
         my $pid = `cat $pid_file`;
         kill('INT', $pid);
+        waitpid($pid, 0);
         unlink $pid_file;
     } else {
         msg("$service not running");
         unlink $pid_file;
     } else {
         msg("$service not running");