| Date: | Tue, 23 Dec 2003 10:20:45 -0600 |
| From: | "Craig A. Berry" <craigberry [...] mac.com> |
| To: | bug-test-harness [...] rt.cpan.org |
| Subject: | [PATCH Test::Harness 2.38] need switches quoted on VMS |
Quoting the switches on the command line in order to preserve case is
necessary on VMS regardless of whether the switch contains whitespace.
The attached patch to Test::Harness::Straps::_switches takes care of
that and gets rid of several test failures in maintperl@21947 (and any
other perl since 2.38 was brought into the core).
--- lib/Test/Harness/Straps.pm;-0 Sat Dec 13 10:39:22 2003
+++ lib/Test/Harness/Straps.pm Tue Dec 23 09:31:09 2003
@@ -374,7 +374,7 @@
# Quote all switches to prevent shell interference, or VMS downcasing
for ( @derived_switches ) {
- $_ = qq["$_"] if /\s/ && !/^".*"$/;
+ $_ = qq["$_"] if !/^".*"$/;
}
return join( " ", @existing_switches, @derived_switches );
}