verstats was using dynamic chan var...

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

diff --git a/blootbot/src/CommandStubs.pl b/blootbot/src/CommandStubs.pl
index 6582de2fa5ea847eb272a3708afcbe15e78900e5..c9a19f039ccdc553ab364ddc7d895f8fa555b5ab 100644 (file)
--- a/blootbot/src/CommandStubs.pl
+++ b/blootbot/src/CommandStubs.pl
@@ -674,9 +674,14 @@ sub do_verstats {
 
     &msg($who, "Sending CTCP VERSION...");
     $conn->ctcp("VERSION", $chan);
+#    $cache{verstats}  = $chan;
+
     $conn->schedule(60, sub {
        my $vtotal      = 0;
-       my $total       = keys %{ $channels{lc $chan}{''} };
+#      my $c           = lc $cache{verstats};
+       my $c           = lc $chan;
+       my $total       = keys %{ $channels{$c}{''} };
+#      delete $cache{verstats};
 
        foreach (keys %ver) {
            $vtotal     += scalar keys %{ $ver{$_} };
@@ -705,7 +710,7 @@ sub do_verstats {
            }
        }
 
-       &pSReply( &formListReply(0, "IRC Client versions for $chan ", @list) );
+       &pSReply( &formListReply(0, "IRC Client versions for $c ", @list) );
 
        # clean up not-needed data structures.
        undef %ver;