evade-mail-pregen: show usage if no args

diff --git a/evade-mail-pregen b/evade-mail-pregen
index 9ab3d220747af761e09e5617e40e235f492baf6a..4369ec1ebf735e93c5587d9cc0d999872158b201 100755 (executable)
--- 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();