When normalising @extspec, use the result of s/// in if() rather than m//
authorNicholas Clark <nick@ccl4.org>
Wed, 4 Feb 2009 20:46:25 +0000 (20:46 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 4 Feb 2009 20:46:25 +0000 (20:46 +0000)
make_ext.pl

index c5a9159..2875422 100644 (file)
@@ -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//;
     }
 }