thh/newsstats
1
0
Fork 0
Code Issues 4 Pull requests Packages Projects Releases Activity

Be more fault-tolerant when reading checkgroups.

Browse source 
* Accept lines starting with whitespace.

* Drop empty "groups", i.e. lines containing only
  whitespace.

Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
Thomas Hochstein 2012-05-27 15:33:11 +02:00
parent 0dc13b3980
commit 7662b1065e
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
NewsStats.pm
View file

@ -230,8 +230,9 @@ sub ReadGroupList {
my %ValidGroups; my %ValidGroups;
open (my $LIST,"<$Filename") or &Bleat(2,"Cannot read $Filename: $!"); open (my $LIST,"<$Filename") or &Bleat(2,"Cannot read $Filename: $!");
while (<$LIST>) { while (<$LIST>) {
s/^(\S+).*$/$1/; s/^\s*(\S+).*$/$1/;
chomp; chomp;
next if /^$/;
$ValidGroups{$_} = '1'; $ValidGroups{$_} = '1';
}; };
close $LIST; close $LIST;