Andy Lester wrote:
I missed this one going by.
==== //depot/perl/lib/Test/Harness/Straps.pm#26 (text) ====
@@ -356,7 +356,6 @@
my $self = shift;
return $ENV{HARNESS_PERL} if defined $ENV{HARNESS_PERL};
- return "MCR $^X" if $self->{_is_vms};
What's the purpose of this change? I need to make it in Test::Harness
directly, but would like to know why.
The explicit call for the MCR shell is not needed in this case on
OpenVMS. The VMS.C code will add it in if needed when it actually runs
the child, and the VMS.C code knows to automatically vmsify() the command.
When the VMS C runtime has been told to return filenames in UNIX format,
the previous Straps.pm no longer works because the depreciated MCR shell
can only handle VMS name formats.
So the simple fix is just to remove the VMS specific code.
Otherwise I have to vmsify($^X) for use with the MCR shell.
There are still a few cases where the explicit call to the MCR shell is
explicitly needed, and can not be removed, such as if a VMS specific
script file is being generated or the Perl system() call is used.
I am in the progress of updating Perl to understand the features
available on OpenVMS 8.2+ that were previously unimplemented.
-John
[EMAIL PROTECTED]
Personal Opinion Only
