From 38038f549c962e4581289ca47ff607161689ba78 Mon Sep 17 00:00:00 2001
From: Duke Leto <jonathan@leto.net>
Date: Thu, 10 Jun 2010 16:44:14 -0700
Subject: [PATCH] Add a helpful usage if given no arguments

---
 bin/perl_sec_audit | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/bin/perl_sec_audit b/bin/perl_sec_audit
index 49c5f8b..43a0e1b 100755
--- a/bin/perl_sec_audit
+++ b/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 ...";
+}