From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 17 Sep 2003 21:01:36 +0000 (+0000)
Subject: A potential fix for non-empty LD in Unix.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d6c6162f7f7e5f417fee7c0cbae6b13c7d35eaaa;p=p5sagit%2Fp5-mst-13.2.git

A potential fix for non-empty LD in Unix.

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

diff --git a/lib/ExtUtils/t/MM_Unix.t b/lib/ExtUtils/t/MM_Unix.t
index 7de8065..c496e8e 100644
--- a/lib/ExtUtils/t/MM_Unix.t
+++ b/lib/ExtUtils/t/MM_Unix.t
@@ -18,7 +18,7 @@ BEGIN {
         plan skip_all => 'Non-Unix platform';
     }
     else {
-        plan tests => 116;
+        plan tests => 117;
     }
 }
 
@@ -237,8 +237,13 @@ is ($t->replace_manpage_separator('Foo/Bar'),'Foo::Bar','manpage_separator');
 $t->init_linker;
 foreach (qw/ EXPORT_LIST PERL_ARCHIVE PERL_ARCHIVE_AFTER LD /)
 {
+    use Config;
     ok( exists $t->{$_}, "$_ was defined" );
-    is( $t->{$_}, '', "$_ is empty on Unix"); 
+    if (exists $Config{lc $_}) {
+	is($t->{$_}, $Config{lc $_}, "$_ is like in %Config ($t->{$_})"); 
+    } else {
+	is($t->{$_}, '', "$_ is empty on Unix"); 
+    }
 }