perl5.002beta3
[perl.git] / installman
index 7d4611c..13cb75f 100755 (executable)
@@ -26,7 +26,7 @@ $usage =
        man3ext = $Config{'man3ext'};
        --notify (or -n) just lists commands that would be executed.\n";
 
-GetOptions( qw( man1dir=s man1ext=s man3dir=s man3ext=s notify help)) 
+GetOptions( qw( man1dir=s man1ext=s man3dir=s man3ext=s notify help)) 
        || die $usage;
 die $usage if $opt_help;
 
@@ -36,7 +36,7 @@ $man1ext = defined($opt_man1ext) ? $opt_man1ext : $Config{'man1ext'};
 $man3dir = defined($opt_man3dir) ? $opt_man3dir : $Config{'installman3dir'};
 $man3ext = defined($opt_man3ext) ? $opt_man3ext : $Config{'man3ext'};
 
-$notify = defined($opt_notify) ? $opt_notify : 0;
+$notify = $opt_notify || $opt_n;
 
 #Sanity checks