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};
}
|