From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 30 Jan 2001 12:45:34 +0000 (+0000)
Subject: - minor update (output and redundant vars)
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=464838c62c856396e2b771a4ea7a614d6287be1d;p=infobot.git

- minor update (output and redundant vars)


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

diff --git a/blootbot/src/Modules/Uptime.pl b/blootbot/src/Modules/Uptime.pl
index 5f8b55f..1756f7b 100644
--- a/blootbot/src/Modules/Uptime.pl
+++ b/blootbot/src/Modules/Uptime.pl
@@ -24,7 +24,7 @@ sub uptimeStr {
 }
 
 sub uptimeGetInfo {
-  my (%uptime,%done,%pid);
+  my (%uptime,%done);
   my ($uptime,$pid);
   my @results;
   my $file = $file{utm};
diff --git a/blootbot/src/Shm.pl b/blootbot/src/Shm.pl
index 0f6f338..0843958 100644
--- a/blootbot/src/Shm.pl
+++ b/blootbot/src/Shm.pl
@@ -82,8 +82,6 @@ sub addForked {
 	return 0;
     }
 
-    &DEBUG("forked => ".scalar(keys %forked) );
-
     foreach (keys %forked) {
 	my $time = time() - $forked{$_}{Time};
 	next unless ($time > $forker_timeout);
diff --git a/blootbot/src/core.pl b/blootbot/src/core.pl
index a81c23f..860d6fb 100644
--- a/blootbot/src/core.pl
+++ b/blootbot/src/core.pl
@@ -30,7 +30,7 @@ use vars qw(@joinchan @ircServers @wingateBad @wingateNow @wingateCache
 use vars qw(%count %netsplit %netsplitservers %flood %dcc %orig
 	    %nuh %talkWho %seen %floodwarn %param %dbh %ircPort
 	    %jointime %topic %joinverb %moduleAge %last %time %mask %file
-	    %forked %pid %chanconf %channels
+	    %forked %chanconf %channels
 );
 
 # Signals.
@@ -355,9 +355,6 @@ sub shutdown {
 sub restart {
     my ($sig) = @_;
 
-    &DEBUG(" forked => ".scalar(keys %forked) );
-    &DEBUG(" pid    => ".scalar(keys %pid) );
-
     if ($$ == $bot_pid) {
 	&status("--- $sig called.");
 
diff --git a/blootbot/src/modules.pl b/blootbot/src/modules.pl
index ef18cbb..333c43e 100644
--- a/blootbot/src/modules.pl
+++ b/blootbot/src/modules.pl
@@ -184,8 +184,6 @@ sub loadMyModulesNow {
 	    next;
 	}
 
-	&DEBUG("_ => $_");
-
 	if (!&IsParam($_) and !&IsChanConf($_)) {
 	    if (exists $myModules{$_}) {
 		&DEBUG("myModule: $myModules{$_} (1) not loaded.");