From 8c63c98c5e64c4e957b91f3cc303e6993960f504 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 4 Feb 2001 12:14:09 +0000
Subject: [PATCH] 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
---
 src/Shm.pl | 4 ++++
 1 file changed, 4 insertions(+)

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}) {
-- 
2.39.5