diff options
| author | Craig A. Berry <craigberry@mac.com> | 2011-04-15 16:31:42 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2011-04-15 16:31:42 -0500 |
| commit | 2f81e8f3910ca00e129de843e034fb70a0bcc905 (patch) | |
| tree | e9ac30282474bc16f269dd02634fcaf472dd4bcc /dist/ExtUtils-CBuilder | |
| parent | b49fc163d0d3e37775be321435b6ac31e4188097 (diff) | |
| download | perl-2f81e8f3910ca00e129de843e034fb70a0bcc905.tar.gz | |
Give EU::CB 04-base.t an absolute path on VMS.
catfile() with an empty string as a first argument does *not*
produce an absolute path on VMS (and probably only does so by
accident elsewhere). For purposes of the test, it seems that
any absolute path would do, so this could probably be done
portably, but on the eve of 5.14 let's make a separate code
path for VMS and leave everyone else as is for now.
Diffstat (limited to 'dist/ExtUtils-CBuilder')
| -rw-r--r-- | dist/ExtUtils-CBuilder/t/04-base.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/dist/ExtUtils-CBuilder/t/04-base.t b/dist/ExtUtils-CBuilder/t/04-base.t index c3bf6b5ca6..db0ef984d4 100644 --- a/dist/ExtUtils-CBuilder/t/04-base.t +++ b/dist/ExtUtils-CBuilder/t/04-base.t @@ -45,7 +45,9 @@ isa_ok( $base, 'ExtUtils::CBuilder::Base' ); } { - my $path_to_perl = File::Spec->catfile( '', qw| usr bin perl | ); + my $path_to_perl = $^O eq 'VMS' + ? 'perl_root:[000000]perl.exe' + : File::Spec->catfile( '', qw| usr bin perl | ); local $^X = $path_to_perl; is( ExtUtils::CBuilder::Base::find_perl_interpreter(), |