A potential fix for non-empty LD in Unix.

p4raw-id: //depot/perl@21264

1 files changed, 7 insertions, 2 deletions

diff --git a/lib/ExtUtils/t/MM_Unix.t b/lib/ExtUtils/t/MM_Unix.t
index 7de8065eaa..c496e8ea2d 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"); 
+    }
 }