Remove call to &Bleat where not appropriate.

Some warn()ings are used for debugging purposes.

Signed-off-by: Thomas Hochstein <thh@inter.net>

diff --git a/NewsStats.pm b/NewsStats.pm
index bdfdcf5..f0a4066 100644 (file)
--- a/NewsStats.pm
+++ b/NewsStats.pm
@@ -184,7 +184,7 @@ sub ListNewsgroups {
     next if($TLH and !/^$TLH/);
     # don't count invalid newsgroups
     if(%ValidGroups and !defined($ValidGroups{$_})) {
     next if($TLH and !/^$TLH/);
     # don't count invalid newsgroups
     if(%ValidGroups and !defined($ValidGroups{$_})) {

-      &Bleat(1,sprintf("DROPPED: %s",$_));
+      warn (sprintf("DROPPED: %s\n",$_));

       next;
     }
     # add original newsgroup to %Newsgroups
       next;
     }
     # add original newsgroup to %Newsgroups