[svn:parrot] r21691 - branches/reconfigure/t/configure/testlib/init

[jkeenan]

Author: jkeenan
Date: Sun Sep 30 18:36:20 2007
New Revision: 21691

Modified:
   branches/reconfigure/t/configure/testlib/init/beta.pm
   branches/reconfigure/t/configure/testlib/init/delta.pm
   branches/reconfigure/t/configure/testlib/init/foobar.pm

Log:
Conform pseudo-configuration step classes to new format:  return 1.

Modified: branches/reconfigure/t/configure/testlib/init/beta.pm
==============================================================================
--- branches/reconfigure/t/configure/testlib/init/beta.pm       (original)
+++ branches/reconfigure/t/configure/testlib/init/beta.pm       Sun Sep 30 
18:36:20 2007
@@ -29,7 +29,7 @@
     my $verbose = $conf->options->get('verbose');
     print "\nbeta is verbose\n" if $verbose;
     print "\nYou've got beta\n";
-    return $self;
+    return 1;
 }
 
 1;

Modified: branches/reconfigure/t/configure/testlib/init/delta.pm
==============================================================================
--- branches/reconfigure/t/configure/testlib/init/delta.pm      (original)
+++ branches/reconfigure/t/configure/testlib/init/delta.pm      Sun Sep 30 
18:36:20 2007
@@ -27,7 +27,7 @@
 sub runstep {
     my ( $self, $conf, @params ) = @_;
     print "[EMAIL PROTECTED]";
-    return $self;
+    return 1;
 }
 
 1;

Modified: branches/reconfigure/t/configure/testlib/init/foobar.pm
==============================================================================
--- branches/reconfigure/t/configure/testlib/init/foobar.pm     (original)
+++ branches/reconfigure/t/configure/testlib/init/foobar.pm     Sun Sep 30 
18:36:20 2007
@@ -27,7 +27,7 @@
 sub runstep {
     my ( $self, $conf ) = @_;
     print "\nYou've got foobar\n";
-    return $self;
+    return 1;
 }
 
 1;