- we used $name instead of $_ in fe. Finally fixed fork. [I'm a moron]

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@540 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/blootbot/src/Shm.pl b/blootbot/src/Shm.pl
index 0c6c4f6fe5f5bfccf7de9d5f8f6618104a4b5dcd..adad48427b7b425469f9993c8bb0b82dbd7b1676 100644 (file)
--- a/blootbot/src/Shm.pl
+++ b/blootbot/src/Shm.pl
@@ -92,16 +92,17 @@ sub addForked {
     }
 
     foreach (keys %forked) {
-       my $time = time() - $forked{$_}{Time};
+       my $n = $_;
+       my $time = time() - $forked{$n}{Time};
        next unless ($time > $forker_timeout);
 
        ### TODO: use &time2string()?
-       &WARN("Fork: looks like we lost '$_', executed $time ago");
+       &WARN("Fork: looks like we lost '$n', executed $time ago");
 
-       my $pid = $forked{$name}{PID};
+       my $pid = $forked{$n}{PID};
        if (!defined $pid) {
-           &WARN("Fork: no pid for $name.");
-           delete $forked{$name};
+           &WARN("Fork: no pid for $n.");
+           delete $forked{$n};
            next;
        }
 
@@ -116,7 +117,7 @@ sub addForked {
            kill 9, $pid;
        }
 
-       delete $forked{$name};
+       delete $forked{$n};
     }
 
     my $count = 0;