[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.380,1.381
Status: Beta
Brought to you by:
kwilliams
From: Randy W. S. <si...@us...> - 2005-01-25 07:00:03
|
Update of /cvsroot/module-build/Module-Build/lib/Module/Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29361/lib/Module/Build Modified Files: Base.pm Log Message: 'build_class' was not being properly initialized. Index: Base.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v retrieving revision 1.380 retrieving revision 1.381 diff -u -d -r1.380 -r1.381 --- Base.pm 24 Jan 2005 21:59:59 -0000 1.380 +++ Base.pm 25 Jan 2005 06:59:50 -0000 1.381 @@ -514,7 +514,8 @@ my $self = shift; my $class = $self->_prop_class; # Set the build class. - $self->{build_properties}{build_class} ||= ref $self; + $self->{properties}{build_class} ||= ref $self; + for my $prop ($self->valid_properties) { $self->{properties}{$prop} = $valid_properties{$class}->{$prop} unless exists $self->{properties}{$prop}; |