[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.466,1.467
Status: Beta
Brought to you by:
kwilliams
|
From: Randy W. S. <si...@us...> - 2005-07-28 03:45:52
|
Update of /cvsroot/module-build/Module-Build/lib/Module/Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8482/lib/Module/Build Modified Files: Base.pm Log Message: Silence warning in test (t/extend.t) when license is not defined, and make M::B::prepare_metadata() robust against undefined license. Index: Base.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v retrieving revision 1.466 retrieving revision 1.467 diff -u -d -r1.466 -r1.467 --- Base.pm 28 Jul 2005 03:07:01 -0000 1.466 +++ Base.pm 28 Jul 2005 03:45:43 -0000 1.467 @@ -2614,7 +2614,8 @@ (my $name = $_) =~ s/^dist_//; $node->{$name} = $self->$_(); } - if (defined( my $url = $self->valid_licenses->{ $self->license } )) { + if (defined( $self->license ) && + defined( my $url = $self->valid_licenses->{ $self->license } )) { $node->{resources}{license} = $url; } |