diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-18 10:57:41 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-18 10:57:41 +0000 |
| commit | bfbb31907f1e2c6e9062e3105f81124f92b651bf (patch) | |
| tree | e634bd3784bef9c100e972a9a2ffda3a15068dbe /lib | |
| parent | d79a646beae7a86020bf36abcfc0cb1db4f161bd (diff) | |
| download | perl-bfbb31907f1e2c6e9062e3105f81124f92b651bf.tar.gz | |
ld has many guises.
p4raw-id: //depot/perl@21273
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/t/MM_Unix.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/ExtUtils/t/MM_Unix.t b/lib/ExtUtils/t/MM_Unix.t index c496e8ea2d..571d2c59fa 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"); } |