debug for seenflush

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

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 11dc6acc1780c2e0c5e1af00339895a367b84cb7..6a5a3486ece717a943e6954af3ad8e513a31b991 100644 (file)
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -342,6 +342,7 @@ sub seenFlush {
     }
 
     &VERB("Flushed $flushed seen entries.",2);
+    &DEBUG("seen: ".scalar(keys %seenflush)." remaining.");
 
     my $interval = $param{'seenFlushInterval'} || 60;
     &ScheduleThis($interval, "seenFlush") if (@_);