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

[Michael G S. <sc...@us...>]

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

Modified Files:
	VMS.pm 
Log Message:
Functionality:
Make prefixification guard against installing outside the prefix.
Add default handling to prefixifcation for such a case.  Defaults not yet
filled in.

Use the cross-platform _catprefix() from the VMS version.

Test changes:
Change global $m to $M.

Test that prefixification winds up with the right path under the prefix.  The
test is not exact but it'll hold for now.




Index: VMS.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Platform/VMS.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- VMS.pm	7 Jun 2005 03:34:07 -0000	1.7
+++ VMS.pm	21 Jun 2005 22:49:30 -0000	1.8
@@ -105,6 +105,10 @@
             $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);
+        }
     }
 
     $self->log_verbose("    now $path\n");
@@ -113,23 +117,6 @@
 }
 
 
-# From ExtUtils::MM_VMS::_catpreifx()
-sub _catprefix {
-    my($self, $rprefix, $default) = @_;
-
-    my($rvol, $rdirs) = File::Spec->splitpath($rprefix);
-    if( $rvol ) {
-        return File::Spec->catpath($rvol,
-                                   File::Spec->catdir($rdirs, $default),
-                                   ''
-                                  )
-    }
-    else {
-        return File::Spec->catdir($rdirs, $default);
-    }
-}
-
-
 =back
 
 =head1 AUTHOR