- if a forked process "died", forked{}{PID} somehow became $$ - fixed.

[infobot.git] / src / Shm.pl

diff --git a/src/Shm.pl b/src/Shm.pl
index 8d6e5a3882564f546d96305ae0dd80e2bc9827a9..b9756bce3676b6e42d0e778fb9b1dddd73e60491 100644 (file)
--- a/src/Shm.pl
+++ b/src/Shm.pl
@@ -126,9 +126,11 @@ sub addForked {
        my $time        = $forked{$name}{Time};
        my $continue    = 0;
 
-       &DEBUG("PID => $forked{$name}{PID}");
+       $continue++ if ($forked{$name}{PID} == $$);
 
-       if ( -d "/proc/$forked{$name}{PID}") {
+       if ($continue) {
+           &DEBUG("hrm.. fork pid == mypid == $$; how did this happen?");
+       } elsif ( -d "/proc/$forked{$name}{PID}") {
            &status("fork: still running; good. BAIL OUT.");
            return 0;
        } else {