diff options
| -rwxr-xr-x | configpm | 4 | ||||
| -rw-r--r-- | lib/Config.t | 3 |
2 files changed, 4 insertions, 3 deletions
@@ -299,11 +299,11 @@ sub fetch_virtual { my @libs = grep { /^-l(.+)/ && not exists $lflibswanted{$1} } split(' ', $Config{libs}); - $Config{libs} = join(' ', @libs); + $value = join(' ', @libs); } elsif ($new_key =~ /^libswanted_/) { my @libswanted = grep { not exists $lflibswanted{$_} } split(' ', $Config{libswanted}); - $Config{libswanted} = join(' ', @libswanted); + $value = join(' ', @libswanted); } } } diff --git a/lib/Config.t b/lib/Config.t index df2b55d3a6..352cbc765b 100644 --- a/lib/Config.t +++ b/lib/Config.t @@ -205,7 +205,8 @@ is($Config{sig_num_init} =~ tr/,/,/, $Config{sig_size}, "sig_num_init size"); is($Config{sig_name_init} =~ tr/,/,/, $Config{sig_size}, "sig_name_init size"); # Test the troublesome virtual stuff -my @virtual = qw(byteorder ccflags_nolargefiles); +my @virtual = qw(byteorder ccflags_nolargefiles ldflags_nolargefiles + libs_nolargefiles libswanted_nolargefiles); foreach my $pain (@virtual) { # No config var is named with anything that is a regexp metachar |