give error message if -f argument is invalid

This commit is contained in:
Stephan Kulow 2013-09-04 17:59:51 +02:00
parent 4b0b28c2f2
commit 56d249c0a7

View File

@ -18,7 +18,7 @@ my $ret = 0;
my $dir = $ARGV[0]; my $dir = $ARGV[0];
my %toignore; my %toignore;
if ($ARGV[1] eq "-f") { if ($ARGV[1] eq "-f") {
open(TOIGNORE, $ARGV[2]); open(TOIGNORE, $ARGV[2]) || die "can't open $ARGV[2]";
while ( <TOIGNORE> ) { while ( <TOIGNORE> ) {
chomp; chomp;
$toignore{$_} = 1; $toignore{$_} = 1;