[Module-build-checkins] Module-Build/lib/Module/Build/Platform VMS.pm,1.8,1.9

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

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

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

Index: VMS.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Platform/VMS.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- VMS.pm	21 Jun 2005 22:49:30 -0000	1.8
+++ VMS.pm	26 Jun 2005 15:38:16 -0000	1.9
@@ -75,8 +75,9 @@
 =cut
 
 # Translated from ExtUtils::MM_VMS::prefixify()
-sub prefixify {
-    my($self, $path, $sprefix, $rprefix) = @_;
+sub _prefixify {
+    my($self, $path, $sprefix, $type) = @_;
+    my $rprefix = $self->prefix;
 
     $self->log_verbose("  prefixify $path from $sprefix to $rprefix\n");
 
@@ -99,15 +100,16 @@
     }
     else {
         my($path_vol, $path_dirs) = File::Spec->splitpath( $path );
-        if( $path_vol eq $Config{vms_prefix}.':' ) {
-            $self->log_verbose("  $Config{vms_prefix}: seen\n");
+	my $vms_prefix = $self->config->{vms_prefix};
+        if( $path_vol eq $vms_prefix.':' ) {
+            $self->log_verbose("  $vms_prefix: seen\n");
 
             $path_dirs =~ s{^\[}{\[.} unless $path_dirs =~ m{^\[\.};
             $path = $self->_catprefix($rprefix, $path_dirs);
         }
         else {
             $self->log_verbose("    cannot prefixify.\n");
-            $path = $self->_prefixify_default($rprefix, $default);
+	    return $self->prefix_relpaths($self->installdirs, $type);
         }
     }