Perl 5.001perl-5.001

[See the Changes file for a list of changes]

1 files changed, 10 insertions, 3 deletions

diff --git a/installperl b/installperl
index ed8912ca26..da6f739d05 100755
--- a/installperl
+++ b/installperl
@@ -28,9 +28,12 @@ while (<CONFIG>) {
 }
 close CONFIG;
 
-$ver = sprintf("%5.3f", $] + 0);
+$ver = $];
 $release = substr($ver,0,3);
 $patchlevel = substr($ver,3,2);
+die "Patchlevel of perl ($patchlevel)",
+    "and patchlevel of config.sh ($PATCHLEVEL) don't match\n"
+	if $patchlevel != $PATCHLEVEL;
 
 # Do some quick sanity checks.
 
@@ -321,8 +324,12 @@ sub installlib {
 	    }
 	    # HP-UX (at least) needs to maintain execute permissions
 	    # on dynamically-loaded libraries.
-	    &chmod(0644, "$installlib/$name") 
-		unless (/\.$so$/ || /\.$dlext$/);
+	    if ($name =~ /\.(so|$dlext)$/o) {
+		&chmod(0555, "$installlib/$name");
+	    }
+	    else {
+		&chmod(0444, "$installlib/$name");
+	    }
 	}
     } elsif (-d $_) {
 	&makedir("$installlib/$name");