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.
}
{
- 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(),