VMS patch for Test::Harness

2005-08-11 Thread Andy Lester
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 $^Xif $self-{_is_vms}; What's the purpose of this

Re: VMS patch for Test::Harness

2005-08-11 Thread John E. Malmberg
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 $^Xif $self-{_is_vms}; What's

Re: VMS patch for Test::Harness

2005-08-11 Thread Michael G Schwern
On Thu, Aug 11, 2005 at 12:50:39PM -0400, John E. Malmberg wrote: 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. Is this a

Re: VMS patch for Test::Harness

2005-08-11 Thread John E. Malmberg
Michael G Schwern wrote: On Thu, Aug 11, 2005 at 12:50:39PM -0400, John E. Malmberg wrote: 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()