add --help to Porting/sync-with-cpan
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Fri, 1 Aug 2014 10:39:06 +0000 (12:39 +0200)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Fri, 1 Aug 2014 10:39:06 +0000 (12:39 +0200)
Porting/sync-with-cpan

index fdbc6ad..d0cc1d6 100755 (executable)
@@ -157,12 +157,20 @@ my @problematic = (
 );
 
 
+sub usage
+{
+    my $err = shift and select STDERR;
+    print "Usage: $0 module [args] [cpan package]\n";
+    exit $err;
+}
+
 GetOptions ('tarball=s'  =>  \my $tarball,
             'version=s'  =>  \my $version,
-             force       =>  \my $force,)
-        or  die "Failed to parse arguments";
+             force       =>  \my $force,
+             help        =>  sub { usage 0; },
+             ) or  die "Failed to parse arguments";
 
-die "Usage: $0 module [args] [cpan package]" unless @ARGV == 1 || @ARGV == 2;
+usage 1 unless @ARGV == 1 || @ARGV == 2;
 
 sub find_type_f {
     my @res;