X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fvmsish.t;h=847d1a6f3049c0948bd07aa5684752f797e47760;hb=6b8a2794cd62dd8d195b1d5c2699448cfd2be2c8;hp=71ca3b5e983ad8582cb8e5d37fcca2c0d63b184f;hpb=86c16cb1c6a1a5707a4ec9d76ea7b9a2aa2032da;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/vmsish.t b/lib/vmsish.t
index 71ca3b5..847d1a6 100644
--- a/lib/vmsish.t
+++ b/lib/vmsish.t
@@ -5,9 +5,12 @@ BEGIN {
     @INC = '../lib'; 
 }
 
-my $Invoke_Perl = qq(MCR $^X "-I[-.lib]");
+my $perl = $^X;
+$perl = VMS::Filespec::vmsify($perl) if $^O eq 'VMS';
 
-require "./test.pl";
+my $Invoke_Perl = qq(MCR $perl "-I[-.lib]");
+
+BEGIN { require "./test.pl"; }
 plan(tests => 25);
 
 SKIP: {