[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.510,1.511

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

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

Modified Files:
	Base.pm 
Log Message:
Make sure "invoked_action" gets initialised correctly at the appropriate times.

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.510
retrieving revision 1.511
diff -u -d -r1.510 -r1.511
--- Base.pm	25 Oct 2005 21:18:13 -0000	1.510
+++ Base.pm	1 Nov 2005 09:34:22 -0000	1.511
@@ -22,7 +22,7 @@
 sub new {
   my $self = shift()->_construct(@_);
 
-  $self->{action} = 'Build_PL';
+  $self->{invoked_action} = $self->{action} ||= 'Build_PL';
   $self->cull_args(@ARGV);
   
   die "Too early to specify a build action '$self->{action}'.  Do 'Build $self->{action}' instead.\n"
@@ -71,8 +71,7 @@
     unless $mb_version eq $self->{properties}{mb_version};
   
   $self->cull_args(@ARGV);
-  $self->{action} ||= 'build';
-  $self->{invoked_action} = $self->{action};
+  $self->{invoked_action} = $self->{action} ||= 'build';
   
   return $self;
 }