Handle remaining corner-cases

This commit is contained in:
Manuel Pégourié-Gonnard 2015-04-03 15:21:50 +02:00
parent 88323c70e8
commit f7d945f4eb
3 changed files with 25 additions and 5 deletions

View file

@ -42,7 +42,7 @@ my %warnings;
while( my $filename = shift )
{
print STDERR "$filename... ";
if( -d $filename ) { print STDERR "skip (directory)"; next }
if( -d $filename ) { print STDERR "skip (directory)\n"; next }
open my $rfh, '<', $filename or die;
my @lines = <$rfh>;