use strict;
use Carp;
our $us = $0; $us =~ s#.*/##;
-our $usage = <<'END';
+our $usage = <<END;
usage:
- $us [<opts>] update <number>|<localpart>@[domain] [<reason>] [<comment>]
- $us [<opts>] assign <number>|<localpart>@[domain] <comment>
+ $us [<opts>] update <number>|<localpart>\@[domain] [<reason>] [<comment>]
+ $us [<opts>] assign <number>|<localpart>\@[domain] <comment>
$us [<opts>] list
$us [<opts>] some <count> } will generate aliases
$us [<opts>] range <min>-<max>|<min>+<count> } as necessary
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();