[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.405,1.406
Status: Beta
Brought to you by:
kwilliams
|
From: Randy W. S. <si...@us...> - 2005-03-31 09:40:59
|
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); |