summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
0dc13b3)
* Accept lines starting with whitespace.
* Drop empty "groups", i.e. lines containing only
whitespace.
Signed-off-by: Thomas Hochstein <thh@inter.net>
my %ValidGroups;
open (my $LIST,"<$Filename") or &Bleat(2,"Cannot read $Filename: $!");
while (<$LIST>) {
my %ValidGroups;
open (my $LIST,"<$Filename") or &Bleat(2,"Cannot read $Filename: $!");
while (<$LIST>) {
$ValidGroups{$_} = '1';
};
close $LIST;
$ValidGroups{$_} = '1';
};
close $LIST;