summaryrefslogtreecommitdiff
path: root/lib/vmsish.t
diff options
context:
space:
mode:
authorJohn E. Malmberg <wb8tyw@qsl.net>2005-08-10 19:26:03 -0400
committerH.Merijn Brand <h.m.brand@xs4all.nl>2005-08-11 07:35:27 +0000
commit16ed468695c21630f18883bfbedc3d5170ddc8b2 (patch)
treedc0fb151b14d61b21fd69a495a06aee634f4f01a /lib/vmsish.t
parent6cd63c21c135f707c2046a8512b70b74c3e1000c (diff)
downloadperl-16ed468695c21630f18883bfbedc3d5170ddc8b2.tar.gz
[patch] blead@25282 - VMS specific fixes. [2nd try]
From: "John E. Malmberg" <wb8tyw@qsl.net> Message-ID: <42FAC54B.2050207@qsl.net> p4raw-id: //depot/perl@25284
Diffstat (limited to 'lib/vmsish.t')
-rw-r--r--lib/vmsish.t5
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/vmsish.t b/lib/vmsish.t
index 71ca3b5e98..f40e434e54 100644
--- a/lib/vmsish.t
+++ b/lib/vmsish.t
@@ -5,7 +5,10 @@ BEGIN {
@INC = '../lib';
}
-my $Invoke_Perl = qq(MCR $^X "-I[-.lib]");
+my $perl = $^X;
+$perl = VMS::Filespec::vmsify($perl) if $^O eq 'VMS';
+
+my $Invoke_Perl = qq(MCR $perl "-I[-.lib]");
require "./test.pl";
plan(tests => 25);