- 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 5f8b55f6c98ba1d3eebc6cdf90eeda13db0d450d..1756f7bf9f4326fce24d64f48059de25c2c33d55 100644 (file)
--- 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 0f6f338ad9a25439dd9fb0ae2be046bb77d330b9..084395865f2851d20ec39d6124cfd45e130046b6 100644 (file)
--- 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 a81c23f7f503044c5f0792339184300e91945972..860d6fb10581be3ca67cd633b951991df8a8381b 100644 (file)
--- 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 ef18cbbe094de55a4977a4e7914b8be9f1b130c8..333c43e145950a3d9f5e78d8658e94261cc62a52 100644 (file)
--- 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.");