Integrate from ansi branch to mainline.

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

diff --git a/installperl b/installperl
index a96c89a..e999d3b 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -128,9 +128,9 @@ push(@corefiles,'perl.exp') if $^O eq 'aix';
 push(@corefiles,'sperl.o') if -f 'sperl.o';
 foreach $file (@corefiles) {
     # HP-UX (at least) needs to maintain execute permissions
-    # on dynamically-loaded libraries.
+    # on dynamically-loadable libraries. So we do it for all.
     copy_if_diff($file,"$installarchlib/CORE/$file")
-       and chmod($file =~ /^\.(so|$dlext)$/ ? 0555 : 0444,
+       and chmod($file =~ /\.(so|\Q$dlext\E)$/ ? 0555 : 0444,
                   "$installarchlib/CORE/$file");
 }