get_pid() will check to make sure the pid actually exists

diff --git a/tools/altperl/slon-tools.pm b/tools/altperl/slon-tools.pm
index 4072ccfd925f0473bf20ecf9b6ef98753b9731be..cde1663a4fbb712018b7c6d6d73c43c0040ce3e5 100644 (file)
--- a/tools/altperl/slon-tools.pm
+++ b/tools/altperl/slon-tools.pm
@@ -4,6 +4,7 @@
 # Copyright 2004-2009 Afilias Canada
 
 use POSIX;
+use Errno;
 use File::Temp qw/ tempfile tempdir /;
 
 sub add_node {
@@ -147,6 +148,12 @@ sub get_pid {
   #print "Command:\n$command\n";
   chomp $pid;
 
+  #make sure the pid actually exists
+  kill(0,$pid);
+  if ($! == Errno::ESRCH) {
+         return 0;
+  }
+
   return $pid;
 }