&showProc in delForked()

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

diff --git a/src/Shm.pl b/src/Shm.pl
index 038b58f0ff3720972e14c67d6facb4b9d059f05d..6ece24808cef92880f85affafae497e38df065df 100644 (file)
--- a/src/Shm.pl
+++ b/src/Shm.pl
@@ -135,6 +135,8 @@ sub delForked {
        return 0;
     }
 
+    &showProc();       # just for informational purposes.
+
     if (exists $forked{$name}) {
        my $timestr = &Time2String(time() - $forked{$name}{Time});
        &status("fork: took $timestr for $name.");