X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=blobdiff_plain;f=NewsStats.pm;h=428719ec4c07e21e8d87cd97e279ac9d1fe3558a;hb=7662b1065e85874ceee234701d93aa50a1cde408;hpb=0dc13b3980d2bd4f0611be1bbeab05f1ea42c645 diff --git a/NewsStats.pm b/NewsStats.pm index f0a4066..428719e 100644 --- a/NewsStats.pm +++ b/NewsStats.pm @@ -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;