This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ld has many guises.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 18 Sep 2003 10:57:41 +0000 (10:57 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 18 Sep 2003 10:57:41 +0000 (10:57 +0000)
p4raw-id: //depot/perl@21273

lib/ExtUtils/t/MM_Unix.t

index c496e8e..571d2c5 100644 (file)
@@ -239,8 +239,9 @@ foreach (qw/ EXPORT_LIST PERL_ARCHIVE PERL_ARCHIVE_AFTER LD /)
 {
     use Config;
     ok( exists $t->{$_}, "$_ was defined" );
 {
     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"); 
     }
     } else {
        is($t->{$_}, '', "$_ is empty on Unix"); 
     }