ok, that failed. lets now set $chan aswell

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

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index c9a19f039ccdc553ab364ddc7d895f8fa555b5ab..904141566b05813ddf4ebdf4c2e81014a2098796 100644 (file)
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -674,14 +674,14 @@ sub do_verstats {
 
     &msg($who, "Sending CTCP VERSION...");
     $conn->ctcp("VERSION", $chan);
-#    $cache{verstats}  = $chan;
+    $cache{verstats}   = $chan;
 
     $conn->schedule(60, sub {
        my $vtotal      = 0;
-#      my $c           = lc $cache{verstats};
-       my $c           = lc $chan;
+       my $c           = lc $cache{verstats};
        my $total       = keys %{ $channels{$c}{''} };
-#      delete $cache{verstats};
+       delete $cache{verstats};
+       $chan           = $c;
 
        foreach (keys %ver) {
            $vtotal     += scalar keys %{ $ver{$_} };