diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Test/Harness/Straps.pm | 1 | ||||
| -rw-r--r-- | lib/vmsish.t | 5 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lib/Test/Harness/Straps.pm b/lib/Test/Harness/Straps.pm index 74ddaa57ba..59f8e603c3 100644 --- a/lib/Test/Harness/Straps.pm +++ b/lib/Test/Harness/Straps.pm @@ -356,7 +356,6 @@ sub _command { my $self = shift; return $ENV{HARNESS_PERL} if defined $ENV{HARNESS_PERL}; - return "MCR $^X" if $self->{_is_vms}; return Win32::GetShortPathName($^X) if $self->{_is_win32}; return $^X; } 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); |