[svn:parrot] r42577 - trunk/config/init

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Thu Nov 19 02:48:00 2009
New Revision: 42577
URL: https://trac.parrot.org/parrot/changeset/42577

Log:
Delete commented-out code.

Modified:
   trunk/config/init/defaults.pm

Modified: trunk/config/init/defaults.pm
==============================================================================
--- trunk/config/init/defaults.pm	Thu Nov 19 01:02:13 2009	(r42576)
+++ trunk/config/init/defaults.pm	Thu Nov 19 02:48:00 2009	(r42577)
@@ -46,31 +46,6 @@
     # the corresponding values in the Parrot::Configure object.  In
     # order to provide access to the original values from Perl 5
     # %Config, we grab those settings we need now and store them in
-    # special keys within the Parrot::Configure object.
-    # This is a multi-stage process.
-
-#    # Stage 1:
-#    foreach my $orig ( qw|
-#        longsize
-#    | ) {
-#        $conf->data->set_p5( $orig => $Config{$orig} );
-#    }
-#
-#    # Stage 2 (anticipating needs of config/auto/headers.pm):
-#    $conf->data->set_p5(
-#        map { $_ => $Config{$_} } grep { /^i_/ } keys %Config
-#    );
-#
-#    # Stage 3 (Along similar lines, look up values from Perl 5 special
-#    # variables and stash them for later lookups.  Name them according
-#    # to their 'use English' names as documented in 'perlvar'.)
-#    $conf->data->set_p5( OSNAME => $^O );
-
-    # Later configuration steps need access to values from the Perl 5
-    # %Config.  However, other later configuration steps may change
-    # the corresponding values in the Parrot::Configure object.  In
-    # order to provide access to the original values from Perl 5
-    # %Config, we grab those settings we need now and store them in
     # special keys within the Parrot::Configure object.  We label these keys
     # '_provisional' to alert users that these should only be used during
     # configuration and testing of configuration steps.  They should not be
@@ -93,9 +68,6 @@
     }
 
     # Stage 2 (anticipating needs of config/auto/headers.pm):
-#    $conf->data->set(
-#        map { $_ . q{_provisional} => $Config{$_} } grep { /^i_/ } keys %Config
-#    );
     $conf->data->set_p5(
         map { $_ => $Config{$_} } grep { /^i_/ } keys %Config
     );