From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 18 Sep 2003 10:57:41 +0000 (+0000)
Subject: ld has many guises.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bfbb31907f1e2c6e9062e3105f81124f92b651bf;p=p5sagit%2Fp5-mst-13.2.git

ld has many guises.

p4raw-id: //depot/perl@21273
---

diff --git a/lib/ExtUtils/t/MM_Unix.t b/lib/ExtUtils/t/MM_Unix.t
index c496e8e..571d2c5 100644
--- a/lib/ExtUtils/t/MM_Unix.t
+++ b/lib/ExtUtils/t/MM_Unix.t
@@ -239,8 +239,9 @@ foreach (qw/ EXPORT_LIST PERL_ARCHIVE PERL_ARCHIVE_AFTER LD /)
 {
     use Config;
     ok( exists $t->{$_}, "$_ was defined" );
-    if (exists $Config{lc $_}) {
-	is($t->{$_}, $Config{lc $_}, "$_ is like in %Config ($t->{$_})"); 
+    if ($_ eq 'LD' && defined $Config{ld}) {
+	like($t->{LD}, qr/^($Config{ld}|ld)$/,
+	     "LD ($t->{LD}) is like in %Config ($t->{$_}) or 'ld'"); 
     } else {
 	is($t->{$_}, '', "$_ is empty on Unix"); 
     }