X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=blobdiff_plain;f=NewsStats.pm;h=428719ec4c07e21e8d87cd97e279ac9d1fe3558a;hp=bdfdcf5ab6762d5df383ae9647bef19d117b55d3;hb=93c8eae2edcb7ccb4a3fe25817908fdb0723f324;hpb=880c3eb2270c235048aedfa6becfc0bc0e7b8ed8

diff --git a/NewsStats.pm b/NewsStats.pm
index bdfdcf5..428719e 100644
--- 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{$_})) {
-      &Bleat(1,sprintf("DROPPED: %s",$_));
+      warn (sprintf("DROPPED: %s\n",$_));
       next;
     }
     # add original newsgroup to %Newsgroups
@@ -230,8 +230,9 @@ sub ReadGroupList {
   my %ValidGroups;
   open (my $LIST,"<$Filename") or &Bleat(2,"Cannot read $Filename: $!");
   while (<$LIST>) {
-    s/^(\S+).*$/$1/;
+    s/^\s*(\S+).*$/$1/;
     chomp;
+    next if /^$/;
     $ValidGroups{$_} = '1';
   };
   close $LIST;