In installperl, simplify the strip/chmod code for libraries on Darwin.

1 files changed, 3 insertions, 8 deletions

diff --git a/installperl b/installperl
index 0cd6ec970a..7b122a0e00 100755
--- a/installperl
+++ b/installperl
@@ -788,14 +788,9 @@ sub installlib {
 	    # HP-UX (at least) needs to maintain execute permissions
 	    # on dynamically-loaded libraries.
             if (copy_if_diff($_, "$installlib/$name")) {
-                if ($name =~ /\.(so|$dlext)$/o) {
-                    strip("-S", "$installlib/$name") if $^O =~ /^(rhapsody|darwin)$/;
-                    chmod(0555, "$installlib/$name");
-                } else {
-                    strip("-S", "$installlib/$name")
-                        if ($name =~ /\.a$/o and $^O =~ /^(rhapsody|darwin)$/);
-                    chmod(0444, "$installlib/$name");
-		}
+                strip("-S", "$installlib/$name")
+                    if $^O =~ /^(rhapsody|darwin)$/ and /\.(?:so|$dlext|a)$/;
+                chmod(/\.(so|$dlext)$/ ? 0555 : 0444, "$installlib/$name");
             }
 	}
     }