ExtUtils::Embed::canon needs to *globally* substitute / for $as

Otherwise the results are buggy for package names with two or more separators.
This bug broke a -Uusedl build, once ExtUtils::Embed was refactored to use
the existing but always-buggy functionality.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/ExtUtils/Embed.pm b/lib/ExtUtils/Embed.pm
index 0e3cbbe6ce..05925cf818 100644
--- a/lib/ExtUtils/Embed.pm
+++ b/lib/ExtUtils/Embed.pm
@@ -271,7 +271,7 @@ sub canon {
         s!/\w+\.\w+$!!;
     }
     if ($as ne '/') {
-        s!/!$as!
+        s!/!$as!g
             foreach @ext;
     }
     @ext;