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

Loading…
Cancel
Save