Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

give error message for missing args

  • Loading branch information...
commit 1b81bc97de21a267f98e81360d2ba1a1b94183e3 1 parent 8a250e0
Steve Sanbeg authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 scan.pl
View
4 scan.pl
@@ -22,7 +22,7 @@
GetOptions ('n|dry-run'=>\$dry_run, verbose=>\$verbose,
'ignore=s'=>\@ignore, 'only=s'=>\@only, 'log!'=>\$do_log_dirs);
-my $dir = shift or die;
+my $dir = shift or die "Usage: $0 SRC DST";
my $scan=FileLoc->new($dir);
$scan->ignore_extension($_) foreach @ignore;
$scan->only_extension($_) foreach @only;
@@ -33,7 +33,7 @@
#print "$dir: @ext\n";# if @ext and defined $ext[0];
printf qq(Source type: "$src_ext" (%0.1f%%)\n), $src_ext_cnt*100;
#print Dumper $scan;
-my $dir2 = shift;
+my $dir2 = shift die "Usage: $0 SRC DST";
my $scan2 = FileLoc->new($dir2);
$scan2->ignore_extension($_) foreach @ignore;
$scan2->only_extension($_) foreach @only;
Please sign in to comment.
Something went wrong with that request. Please try again.