[svn:parrot] r38804 - trunk/config/gen

[chromatic at svn.parrot.org]

Author: chromatic
Date: Fri May 15 22:59:26 2009
New Revision: 38804
URL: https://trac.parrot.org/parrot/changeset/38804

Log:
[config] Removed a handful of keys stolen from Perl 5 from serialized Parrot
Config hash; this saves 3.02% of startup speed.  There are more keys to remove.

Modified:
   trunk/config/gen/config_pm.pm

Modified: trunk/config/gen/config_pm.pm
==============================================================================
--- trunk/config/gen/config_pm.pm	Fri May 15 21:49:40 2009	(r38803)
+++ trunk/config/gen/config_pm.pm	Fri May 15 22:59:26 2009	(r38804)
@@ -97,9 +97,13 @@
 
 END
 
+    my %p5_keys = map { $_ => 1 } $conf->data->keys_p5();
+
     while (<$IN>) {
         if (/\@PCONFIG\@/) {
             for my $k ( sort { lc $a cmp lc $b || $a cmp $b } $conf->data->keys ) {
+                next if exists $p5_keys{$k};
+
                 my $v = $conf->data->get($k);
                 if ( defined $v ) {
                     my $type = ref $v;