Make $Config{libs_nolargefiles} and

$Config{libswanted_nolargefiles} work. (For the first time)

p4raw-id: //depot/perl@23536

diff --git a/configpm b/configpm
index edd0844..c1c3922 100755 (executable)
--- a/configpm
+++ b/configpm
@@ -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 df2b55d..352cbc7 100644 (file)
--- 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