allow extensions to be specified as paths

	Message-Id: <19980721120427.F903@west-tip.transeda.com>
	Subject: [PATCH] 5.004_75 Embed and static extensions

p4raw-id: //depot/perl@1624

diff --git a/lib/ExtUtils/Embed.pm b/lib/ExtUtils/Embed.pm
index fe545a8..e41ca40 100644 (file)
--- a/lib/ExtUtils/Embed.pm
+++ b/lib/ExtUtils/Embed.pm
@@ -201,7 +201,7 @@ sub ldopts {
     my($mod,@ns,$root,$sub,$extra,$archive,@archives);
     print STDERR "Searching (@path) for archives\n" if $Verbose;
     foreach $mod (@mods) {
-       @ns = split('::', $mod);
+       @ns = split(/::|\/|\\/, $mod);
        $sub = $ns[-1];
        $root = $MM->catdir(@ns);