Refactor installman's option handling to use Getopt::Long's "multiple names".
authorNicholas Clark <nick@ccl4.org>
Wed, 25 Apr 2012 13:21:54 +0000 (15:21 +0200)
committerNicholas Clark <nick@ccl4.org>
Sat, 13 Jul 2013 10:01:37 +0000 (12:01 +0200)
Previously installman specified synonyms for options as distinct
options, and then used explicit code to merge them.

Also add -h and -? as synonyms for --help.

installman

index cd8b094..16278aa 100755 (executable)
@@ -38,7 +38,7 @@ my $usage =
 
 GetOptions( \%opts,
             qw( man1dir=s man1ext=s man3dir=s man3ext=s
-                destdir:s notify n help silent S verbose V))
+                destdir:s notify|n help|h|? silent|S verbose|V))
        || die $usage;
 die $usage if $opts{help};
 $opts{destdir} //= '';
@@ -47,9 +47,7 @@ foreach my $pre (qw(man1 man3)) {
     $opts{"${pre}dir"} //= $opts{destdir} . $Config{"install${pre}dir"};
     $opts{"${pre}ext"} //= $Config{"${pre}ext"};
 }
-$opts{silent} ||= $opts{S};
-$opts{notify} ||= $opts{n};
-$opts{verbose} ||= $opts{V} || $opts{notify};
+$opts{verbose} ||= $opts{notify};
 
 #Sanity checks