revert parts of change#2990 to preserve predictable usage of Win32::Foo()

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

diff --git a/installman b/installman
index e637720..51e2019 100755 (executable)
--- a/installman
+++ b/installman
@@ -17,8 +17,8 @@ $ver = $];
 $release = substr($ver,0,3);   # Not used presently.
 $patchlevel = substr($ver,3,2);
 die "Patchlevel of perl ($patchlevel)",
-    "and patchlevel of config.sh ($Config{'PATCHLEVEL'}) don't match\n"
-       if $patchlevel != $Config{'PATCHLEVEL'};
+    "and patchlevel of config.sh ($Config{'PERL_VERSION'}) don't match\n"
+       if $patchlevel != $Config{'PERL_VERSION'};
 
 $usage =
 "Usage:  installman --man1dir=/usr/wherever --man1ext=1
@@ -134,7 +134,7 @@ sub runpod2man {
        # Convert name from  File/Basename.pm to File::Basename.3 format,
        # if necessary.
        $manpage =~ s#\.p(m|od)$##;
-       if ($^O eq 'os2' || $^O eq 'amigaos') {
+       if ($^O eq 'os2' || $^O eq 'amigaos' || $^O eq 'uwin') {
          $manpage =~ s#/#.#g;
        } else {
          $manpage =~ s#/#::#g;