[svn:parrot] r36252 - in trunk: config/init t/postconfigure

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Sun Feb  1 19:48:28 2009
New Revision: 36252
URL: https://trac.parrot.org/parrot/changeset/36252

Log:
[configure] Correcting error reported by rurban:  entry for
configuration_steps in config_lib.pasm was listing array's memory address
rather than elements.  Changed assignment to configuration_steps in
config/init/default.pm to space-delimited string.  Changed formulation of one
postconfiguration test.

Modified:
   trunk/config/init/defaults.pm
   trunk/t/postconfigure/05-trace.t

Modified: trunk/config/init/defaults.pm
==============================================================================
--- trunk/config/init/defaults.pm	Sun Feb  1 19:14:08 2009	(r36251)
+++ trunk/config/init/defaults.pm	Sun Feb  1 19:48:28 2009	(r36252)
@@ -80,7 +80,7 @@
         build_dir => abs_path($FindBin::Bin),
         configured_from_file =>
             $conf->options->get('configured_from_file') || '',
-        configuration_steps => [ $conf->get_list_of_steps() ],
+        configuration_steps => ( join q{ } => $conf->get_list_of_steps() ),
 
         # Compiler -- used to turn .c files into object files.
         # (Usually cc or cl, or something like that.)

Modified: trunk/t/postconfigure/05-trace.t
==============================================================================
--- trunk/t/postconfigure/05-trace.t	Sun Feb  1 19:14:08 2009	(r36251)
+++ trunk/t/postconfigure/05-trace.t	Sun Feb  1 19:48:28 2009	(r36252)
@@ -46,10 +46,10 @@
 is( ref($steps), q{ARRAY}, "list_steps() correctly returned array ref" );
 
 # Sanity check!
+my @PConfig_steps = split /\s+/, $PConfig{configuration_steps};
 is_deeply(
     $steps,
-#    [ get_steps_list() ],
-    $PConfig{configuration_steps},
+    [ @PConfig_steps ],
     "list_steps() returned same as \$Parrot::Config::PConfig{configuration_steps}"
 );