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.

diff --git a/dist/ExtUtils-CBuilder/t/04-base.t b/dist/ExtUtils-CBuilder/t/04-base.t
index c3bf6b5..db0ef98 100644 (file)
--- 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(),