[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.441,1.442

[Ken W. <kwi...@us...>]

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