Author: kwilliams
Date: Sat Sep 8 19:00:49 2007
New Revision: 9925
Modified:
Module-Build/trunk/Changes
Module-Build/trunk/lib/Module/Build/Platform/VMS.pm
Log:
VMS fixes from CAB
Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes (original)
+++ Module-Build/trunk/Changes Sat Sep 8 19:00:49 2007
@@ -1,5 +1,11 @@
Revision history for Perl extension Module::Build.
+ - Got rid of a call to eliminate_macros, which isn't needed in
+ Module::Build since there is no external make utility involved.
+ Override expand_test_dir to make up for the fact that the
+ home-grown glob() returns absolute, not relative, paths. [Craig
+ A. Berry]
+
- Fixed a catdir() that needed to be catfile() in the .packlist
creation code. [John E. Malmberg]
Modified: Module-Build/trunk/lib/Module/Build/Platform/VMS.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Platform/VMS.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Platform/VMS.pm Sat Sep 8 19:00:49 2007
@@ -80,7 +80,6 @@
$self->log_verbose(" prefixify $path from $sprefix to $rprefix\n");
# Translate $(PERLPREFIX) to a real path.
- $rprefix = $self->eliminate_macros($rprefix);
$rprefix = VMS::Filespec::vmspath($rprefix) if $rprefix;
$sprefix = VMS::Filespec::vmspath($sprefix) if $sprefix;
@@ -221,6 +220,26 @@
}
+=item expand_test_dir
+
+Inherit the standard version but relativize the paths as the native glob()
doesn't
+do that for us.
+
+=cut
+
+sub expand_test_dir {
+ my ($self, $dir) = @_;
+
+ my @reldirs = $self->SUPER::expand_test_dir( $dir );
+
+ for my $eachdir (@reldirs) {
+ my ($v,$d,$f) = File::Spec->splitpath( $eachdir );
+ my $reldir = File::Spec->abs2rel( File::Spec->catpath( $v, $d, '' ) );
+ $eachdir = File::Spec->catfile( $reldir, $f );
+ }
+ return @reldirs;
+}
+
=back
=head1 AUTHOR
