[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.448,1.449

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

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26614/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
_prefixify() clearly doesn't work for VMS, but let's at least get it to compile.

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.448
retrieving revision 1.449
diff -u -d -r1.448 -r1.449
--- Base.pm	26 Jun 2005 15:16:11 -0000	1.448
+++ Base.pm	26 Jun 2005 15:38:15 -0000	1.449
@@ -2649,7 +2649,6 @@
   
   return $self->_prefixify($normal_location,
 			   $self->original_prefix->{$installdirs}, 
-			   $self->prefix,
 			   $type,
 			  );
 }
@@ -2671,7 +2670,8 @@
 
 # Translated from ExtUtils::MM_Unix::prefixify()
 sub _prefixify {
-  my($self, $path, $sprefix, $rprefix, $type) = @_;
+  my($self, $path, $sprefix, $type) = @_;
+  my $rprefix = $self->prefix;
   
   $rprefix .= '/' if $sprefix =~ m|/$|;