More author updates.

[perl5.git] / installman

diff --git a/installman b/installman
index 6ae801d..72c76fd 100755 (executable)
--- a/installman
+++ b/installman
@@ -49,9 +49,8 @@ $opts{man3dir} = $Config{'installman3dir'}
 $opts{man3ext} = $Config{'man3ext'}
     unless defined($opts{man3ext}); 
 $opts{silent} ||= $opts{S};
-$opts{verbose} ||= $opts{V};
-
 $opts{notify} ||= $opts{n};
+$opts{verbose} ||= $opts{V} || $opts{notify};
 
 #Sanity checks
 
@@ -131,7 +130,7 @@ sub runpod2man {
     # installed by occult means.)
     my $pod2man = "$downdir/perl -I $downdir/lib $downdir/pod/pod2man --section=$manext --official";
 
-    mkpath($mandir, 1, 0777) unless $opts{notify};  # In File::Path
+    mkpath($mandir, $opts{verbose}, 0777) unless $opts{notify};  # In File::Path
     # Make a list of all the .pm and .pod files in the directory.  We will
     # always run pod2man from the lib directory and feed it the full pathname
     # of the pod.  This might be useful for pod2man someday.