[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.405,1.406

[Randy W. S. <si...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15706/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Fix tests to ignore any user defined '~/.modulebuildrc' file.

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.405
retrieving revision 1.406
diff -u -d -r1.405 -r1.406
--- Base.pm	31 Mar 2005 09:01:38 -0000	1.405
+++ Base.pm	31 Mar 2005 09:40:13 -0000	1.406
@@ -476,7 +476,7 @@
    skip_rcfile
 );
 
-INIT {
+{
   my @prereq_actions = ( 'Build_PL', __PACKAGE__->known_actions );
   my @prereq_types   = qw( requires recommends conflicts );
   __PACKAGE__->add_property(prereq_actions => \@prereq_actions);
@@ -1024,10 +1024,11 @@
 
 sub _call_action {
   my ($self, $action) = @_;
-  return if $self->{_completed_actions}{$action}++;
 
   $self->validate_action_prereqs( $action );
 
+  return if $self->{_completed_actions}{$action}++;
+
   local $self->{action} = $action;
   my $method = "ACTION_$action";
   die "No action '$action' defined, try running the 'help' action.\n" unless $self->can($method);