[svn:parrot] r21694 - branches/reconfigure/lib/Parrot

[jkeenan]

Author: jkeenan
Date: Sun Sep 30 18:58:52 2007
New Revision: 21694

Modified:
   branches/reconfigure/lib/Parrot/Configure.pm

Log:
Correct error in _run_this_step when checking to see if I was running an 
'inter' step; needed to use step name rather than step object.

Modified: branches/reconfigure/lib/Parrot/Configure.pm
==============================================================================
--- branches/reconfigure/lib/Parrot/Configure.pm        (original)
+++ branches/reconfigure/lib/Parrot/Configure.pm        Sun Sep 30 18:58:52 2007
@@ -376,6 +376,7 @@
         if ( $ret ) {
             _finish_printing_result( {
                 step        => $step,
+                step_name   => $step_name,
                 args        => $args,
                 description => $step->description,
             } );
@@ -412,7 +413,7 @@
         print "...";
     }
     print "." x ( 71 - length($argsref->{description}) - length($result) );
-    unless ($argsref->{step} =~ m{^inter/} && $argsref->{args}->{ask}) {
+    unless ($argsref->{step_name} =~ m{^inter/} && $argsref->{args}->{ask}) {
         print "$result.";
     }
     return 1;