Make ~(chr(a).chr(b)) eq chr(~a).chr(~b) on utf8.

[perl5.git] / installman

diff --git a/installman b/installman
index c1f3837..72c76fd 100755 (executable)
--- a/installman
+++ b/installman
@@ -130,7 +130,7 @@ sub runpod2man {
     # installed by occult means.)
     my $pod2man = "$downdir/perl -I $downdir/lib $downdir/pod/pod2man --section=$manext --official";
 
-    mkpath($mandir, $verbose, 0777) unless $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.