Make $Config{libs_nolargefiles} and

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

p4raw-id: //depot/perl@23536

2 files changed, 4 insertions, 3 deletions

diff --git a/configpm b/configpm
index edd0844265..c1c39221b6 100755
--- 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 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