When normalising @extspec, use the result of s/// in if() rather than m//

1 files changed, 4 insertions, 7 deletions

diff --git a/make_ext.pl b/make_ext.pl
index c5a91599cd..2875422b3a 100644
--- a/make_ext.pl
+++ b/make_ext.pl
@@ -76,18 +76,15 @@ my $dynamic = $opts{dynamic} || $opts{all};
 # canonise into X/Y form (pname)
 
 foreach (@extspec) {
-    if (/^lib/) {
+    if (s{^lib/auto/}{}) {
 	# Remove lib/auto prefix and /*.* suffix
-	s{^lib/auto/}{};
 	s{/[^/]+\.[^/]+$}{};
-    } elsif (/^ext/) {
+    } elsif (s{^ext/}{}) {
 	# Remove ext/ prefix and /pm_to_blib suffix
-	s{^ext/}{};
 	s{/pm_to_blib$}{};
-    } elsif (/::/) {
+    } elsif (s{::}{\/}g) {
 	# Convert :: to /
-	s{::}{\/}g;
-    } elsif (/\..*o$/) {
+    } else {
 	s/\..*o//;
     }
 }