From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 30 Oct 2013 22:04:20 +0000 (+0000)
Subject: evade-mail-pregen: show usage if no args
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=d55b9311972fb2106557697953bee35bfe0939aa;p=evade-mail-usrlocal.git

evade-mail-pregen: show usage if no args
---

diff --git a/evade-mail-pregen b/evade-mail-pregen
index 9ab3d22..4369ec1 100755
--- a/evade-mail-pregen
+++ b/evade-mail-pregen
@@ -252,7 +252,10 @@ $comment_re =~ s/\W/\\$&/g;
     or badusage "comment pattern (\`$comment_pattern')".
          " must contain \`<number>' exactly once";
 
-@ARGV or badusage "missing action";
+if (!@ARGV) {
+    print STDERR $usage or die $!;
+    exit 1;
+}
 my $action = shift @ARGV;
 
 fetch_list();