Browse Source

Add a helpful usage if given no arguments

master
Duke Leto 14 years ago
parent
commit
38038f549c
  1. 7
      bin/perl_sec_audit

7
bin/perl_sec_audit

@ -6,6 +6,9 @@ my @files = @ARGV;
my $params = { my $params = {
-theme => 'security', -theme => 'security',
}; };
usage() unless @files;
for my $file (@files) { for my $file (@files) {
next unless -f $file; next unless -f $file;
my @critique = critique($params, $file); my @critique = critique($params, $file);
@ -15,3 +18,7 @@ for my $file (@files) {
print "\n"; print "\n";
} }
} }
sub usage {
say "$0 file1 file2 ...";
}

Loading…
Cancel
Save