more TIEHANDLE

[p5sagit/p5-mst-13.2.git] / installman

diff --git a/installman b/installman
old mode 100755 (executable)
new mode 100644 (file)
index 38bd0af..5e0b0cc
--- 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 {