From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 4 Feb 2009 20:46:25 +0000 (+0000)
Subject: When normalising @extspec, use the result of s/// in if() rather than m//
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ad017a8809c03aa288ac99952c8d4599b17f858;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/make_ext.pl b/make_ext.pl
index c5a9159..2875422 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//;
     }
 }