From: Doug MacEachern <dougm@opengroup.org>
Date: Thu, 27 Feb 1997 16:25:04 +0000 (-0500)
Subject: Allow explicit '-lperl' in link arguments
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af24809749a51c07bdc647819c54e852071ea525;p=p5sagit%2Fp5-mst-13.2.git

Allow explicit '-lperl' in link arguments

private-msgid: <199702271625.LAA25402@postman.osf.org>
---

diff --git a/lib/ExtUtils/Embed.pm b/lib/ExtUtils/Embed.pm
index 4a37184..4d2ed6a 100644
--- a/lib/ExtUtils/Embed.pm
+++ b/lib/ExtUtils/Embed.pm
@@ -17,7 +17,7 @@ use vars qw(@ISA @EXPORT $VERSION
 	    );
 use strict;
 
-$VERSION = sprintf("%d.%02d", q$Revision: 1.22 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.2201 $ =~ /(\d+)\.(\d+)/);
 #for the namespace change
 $Devel::embed::VERSION = "99.99";
 
@@ -199,9 +199,11 @@ sub ldopts {
     }
     #print STDERR "\@potential_libs = @potential_libs\n";
 
+    my $libperl = (grep(/^(-l\w+perl)$/, @link_args))[0] || "-lperl";
+
     my($extralibs, $bsloadlibs, $ldloadlibs, $ld_run_path) =
 	$MM->ext(join ' ', 
-		 $MM->catdir("-L$Config{archlibexp}", "CORE"), " -lperl", 
+		 $MM->catdir("-L$Config{archlibexp}", "CORE"), " $libperl", 
 		 @potential_libs);
 
     my $ld_or_bs = $bsloadlibs || $ldloadlibs;