[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.340.2.28,1.340.2.29
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-03-23 01:17:07
|
Update of /cvsroot/module-build/Module-Build/lib/Module/Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26889/lib/Module/Build Modified Files: Tag: release-0_26_branch Base.pm Log Message: --install_path should override --install_base Index: Base.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v retrieving revision 1.340.2.28 retrieving revision 1.340.2.29 diff -u -d -r1.340.2.28 -r1.340.2.29 --- Base.pm 18 Mar 2005 16:22:58 -0000 1.340.2.28 +++ Base.pm 23 Mar 2005 01:16:56 -0000 1.340.2.29 @@ -2368,10 +2368,10 @@ my ($self, $type) = @_; my $p = $self->{properties}; + return $p->{install_path}{$type} if exists $p->{install_path}{$type}; if ($p->{install_base}) { return File::Spec->catdir($p->{install_base}, $self->install_base_relative($type)); } - return $p->{install_path}{$type} if exists $p->{install_path}{$type}; return $p->{install_sets}{ $p->{installdirs} }{$type}; } |