[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.340.2.7,1.340.2.8
Status: Beta
Brought to you by:
kwilliams
From: Ken W. <kwi...@us...> - 2004-12-12 18:04:29
|
Update of /cvsroot/module-build/Module-Build/lib/Module/Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4898/lib/Module/Build Modified Files: Tag: release-0_26_branch Base.pm Log Message: Revert that last instance() patch Index: Base.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v retrieving revision 1.340.2.7 retrieving revision 1.340.2.8 diff -C2 -d -r1.340.2.7 -r1.340.2.8 *** Base.pm 12 Dec 2004 16:49:48 -0000 1.340.2.7 --- Base.pm 12 Dec 2004 18:04:18 -0000 1.340.2.8 *************** *** 14,21 **** use Text::ParseWords (); - # We use this to store the most-recently created M::B objects. - # Typically there's only one. - my @INSTANCE; - #################### Constructors ########################### sub new { --- 14,17 ---- *************** *** 34,46 **** $self->dist_version; - push @INSTANCE, $self; return $self; } - sub instance { - die "No new Module::Build objects have been created in this process" unless @INSTANCE; - return $INSTANCE[-1]; - } - sub resume { my $self = shift()->_construct(@_); --- 30,36 ---- |