| Subject: | Charge #25284 from bleadperl should be applied to Test::Harness::Straps |
The following patch to bleadperl should be applied to Test::Harness 2.54. This is a fix for Test::Harness on VMS.
==== //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};
return Win32::GetShortPathName($^X) if $self->{_is_win32};
return $^X;
}