Author: jkeenan
Date: Sat Feb 16 06:40:17 2008
New Revision: 25758
Modified:
branches/tcif/lib/Parrot/Configure/Parallel/Trace.pm
Log:
Minor corrections in update_state().
Modified: branches/tcif/lib/Parrot/Configure/Parallel/Trace.pm
==============================================================================
--- branches/tcif/lib/Parrot/Configure/Parallel/Trace.pm (original)
+++ branches/tcif/lib/Parrot/Configure/Parallel/Trace.pm Sat Feb 16
06:40:17 2008
@@ -52,7 +52,7 @@
our $sto = q{.configure_parallel.sto};
-=head1 PUBLIC METHODS
+=head1 METHODS
=head2 C<new()>
@@ -318,13 +318,10 @@
sub update_state {
my $self = shift;
my $argsref = shift;
-# if (! defined $argsref->{state}) {
-# $argsref->{state} = [ q{} ];
-# }
if (! defined $argsref->{state}->[0]) {
$argsref->{state}->[0] = [];
}
- push @{ $argsref->{state}->[0] }, $argsref->{step_name};
+ push @{ $argsref->{state}->[0] }, $self->get_step_name();
push @{ $argsref->{state} }, $argsref->{conf};
{
@@ -385,7 +382,6 @@
{
state => $state,
conf => $conf,
- step_name => $step_name,
}
);
} else {
