From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 28 Nov 2004 15:00:15 +0000 (+0000)
Subject: Given that there is a pre-built cache, no need for @v_fast
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=deeea48151801540f57aba18a0bf7bc3c1511864;p=p5sagit%2Fp5-mst-13.2.git

Given that there is a pre-built cache, no need for @v_fast

p4raw-id: //depot/perl@23563
---

diff --git a/configpm b/configpm
index e1bb066..4ecd44b 100755
--- a/configpm
+++ b/configpm
@@ -138,7 +138,6 @@ ENDOFBEG
 
 
 my @non_v    = ();
-my @v_fast   = ();
 my @v_others = ();
 my $in_v     = 0;
 my %Data     = ();
@@ -234,12 +233,7 @@ die if $@;
     $val =~ s/$quote\n?\z//;
 
     my $line = "$name=$quote$val$quote\n";
-    if (!$Common{$name}){
-        push(@v_others, $line);
-    }
-    else {
-        push(@v_fast, $line);
-    }
+    push(@v_others, $line);
   }
   close CONFIG_SH;
 }
@@ -247,7 +241,7 @@ die if $@;
 
 # Calculation for the keys for byteorder
 # This is somewhat grim, but I need to run fetch_string here.
-our $Config_SH_expanded = join "\n", '', @v_fast, @v_others;
+our $Config_SH_expanded = join "\n", '', @v_others;
 
 my $t = fetch_string ({}, 'ivtype');
 my $s = fetch_string ({}, 'ivsize');
@@ -301,7 +295,7 @@ local *_ = \my $a;
 $_ = <<'!END!';
 EOT
 
-print CONFIG_HEAVY join('', @v_fast, sort @v_others), "!END!\n";
+print CONFIG_HEAVY join('', sort @v_others), "!END!\n";
 
 # Only need the dynamic byteorder code in Config.pm if 'byteorder' is one of
 # the precached keys