[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.441,1.442
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-06-23 02:26:53
|
Update of /cvsroot/module-build/Module-Build/lib/Module/Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23299/lib/Module/Build Modified Files: Base.pm Log Message: Let prefix_relative() ask $self for the prefix rather than taking it as an arg Index: Base.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v retrieving revision 1.441 retrieving revision 1.442 diff -u -d -r1.441 -r1.442 --- Base.pm 23 Jun 2005 02:20:02 -0000 1.441 +++ Base.pm 23 Jun 2005 02:26:42 -0000 1.442 @@ -2639,8 +2639,7 @@ # Translated from ExtUtils::MM_Any::init_INSTALL_from_PREFIX sub prefix_relative { - my ($self, $type, $prefix) = @_; - + my ($self, $type) = @_; my $installdirs = $self->installdirs; my $normal_location = $self->install_sets->{$installdirs}{$type} @@ -2648,7 +2647,7 @@ return $self->_prefixify($normal_location, $self->prefix_sets->{$installdirs}, - $prefix, + $self->prefix, $self->prefix_relpaths($installdirs, $type), ); } @@ -2720,7 +2719,7 @@ return $p->{install_path}{$type} if exists $p->{install_path}{$type}; return File::Spec->catdir($p->{install_base}, $self->install_base_relpaths($type)) if $p->{install_base}; - return $self->prefix_relative($type, $p->{prefix}) if $p->{prefix}; + return $self->prefix_relative($type) if $p->{prefix}; return $p->{install_sets}{ $p->{installdirs} }{$type}; } |