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 (file)
--- 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"); 
+    }
 }