From d55b9311972fb2106557697953bee35bfe0939aa Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 30 Oct 2013 22:04:20 +0000
Subject: [PATCH] evade-mail-pregen: show usage if no args

---
 evade-mail-pregen | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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();
-- 
2.30.2