delForked: warn if name is source file.

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

diff --git a/src/Shm.pl b/src/Shm.pl
index 136bd165b26544daa7a22725c4f37b69af5c8701..3c5034913133dc49d4714b381d9cbb981729e9b2 100644 (file)
--- a/src/Shm.pl
+++ b/src/Shm.pl
@@ -154,6 +154,10 @@ sub delForked {
        POSIX::_exit(0);
     }
 
+    if ($name =~ /\.pl/) {
+       &WARN("dF: name is name of source file ($name). FIX IT!");
+    }
+
     &showProc();       # just for informational purposes.
 
     if (exists $forked{$name}) {