Re: installperl feature request (was: Re: Upgrade 4.0x to 5.001m)

Fix installperl so that the -n option really only prints commands.
(previously, it would still do the mkdirs.)

an "ignore installed" option, so that it doesn't bother to check
to see if the target already exists (an optimization that I
*don't* want it to do when I do #1 above)

1 files changed, 3 insertions, 1 deletions

diff --git a/installman b/installman
index 38bd0af10e..5e0b0cc596 100644
--- a/installman
+++ b/installman
@@ -66,6 +66,7 @@ sub runpod2man {
     }
 
     chdir $poddir || die "Unable to cd to $poddir directory!\n$!\n";
+    print STDERR "chdir $poddir\n";
 
     # We insist on using the current version of pod2man in case there
     # are enhancements or changes from previous installed versions.
@@ -80,7 +81,7 @@ sub runpod2man {
     # installed by occult means.)
     $pod2man = "../perl -I ../lib ../pod/pod2man --section=$manext --official";
 
-    mkpath($mandir, 1, 0777);  # In File::Path
+    mkpath($mandir, 1, 0777) unless $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.
@@ -111,6 +112,7 @@ sub runpod2man {
 	}
     }
     chdir "$builddir" || die "Unable to cd back to $builddir directory!\n$!\n";
+    print STDERR "chdir $builddir\n";
 }
 
 sub lsmodpods {