- attempt to fix .reset (chans) prob

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

diff --git a/src/Modules/UserDCC.pl b/src/Modules/UserDCC.pl
index acc4a173948cfc8ea922e666d1e814e766ee503c..195fdf846d0d0d548a2da50af88c3dd90b8b3674 100644 (file)
--- a/src/Modules/UserDCC.pl
+++ b/src/Modules/UserDCC.pl
@@ -444,15 +444,20 @@ sub userDCC {
        &msg($who,"resetting...");
        my @done;
        foreach ( keys %channels, keys %chanconf ) {
+           &DEBUG("reset: c => $c");
            next if (grep /^\Q$_\E$/i, @done);
 
+           &DEBUG("reset: should part... c => $c");
            &part($_);
 
            push(@done, $_);
            sleep 1;
        }
+       &DEBUG("before clearircvars");
        &clearIRCVars();
+       &DEBUG("before joinnextchan");
        &joinNextChan();
+       &DEBUG("after joinnextchan");
 
        &status("USER reset $who");
        &msg($who,"resetted");