index 7dccf4614aab767403763943a92785a5ad01af4b..54e138b598dfe525b511b47b87ff3ff36db49070 100755 (executable)
while (my $line = <$eh>)
{
chomp $line;
- next if $line =~ m/^#/;
+ next if $line =~ m/^#/ || $line eq "";
my $rgx = qr!$line!;
@files = grep { $_ !~ /$rgx/ } @files if $rgx;
}