From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 4 Feb 2001 12:14:09 +0000 (+0000)
Subject: delForked: warn if name is source file.
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8c63c98c5e64c4e957b91f3cc303e6993960f504;p=infobot.git

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 136bd16..3c50349 100644
--- 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}) {