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
|
