diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-30 21:10:22 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-30 21:10:22 +0000 |
| commit | bf9c4ad2fa12f7ea847482e4bd07e13fd3691eed (patch) | |
| tree | 388d8138b75b5267ac7818a57a711a18fc0a5648 /lib/Test | |
| parent | 6cd4dd6cc935be7db587394c8958d598b1ec3baa (diff) | |
| download | perl-bf9c4ad2fa12f7ea847482e4bd07e13fd3691eed.tar.gz | |
A patch for Test::Harness on VMS by Craig Berry
(see RT CPAN bug #4745)
p4raw-id: //depot/perl@22016
Diffstat (limited to 'lib/Test')
| -rw-r--r-- | lib/Test/Harness/Straps.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Test/Harness/Straps.pm b/lib/Test/Harness/Straps.pm index 6d332ba3d8..d536274457 100644 --- a/lib/Test/Harness/Straps.pm +++ b/lib/Test/Harness/Straps.pm @@ -374,7 +374,7 @@ sub _switches { # Quote all switches to prevent shell interference, or VMS downcasing for ( @derived_switches ) { - $_ = qq["$_"] if /\s/ && !/^".*"$/; + $_ = qq["$_"] if /\S/ && !/^".*"$/; } return join( " ", @existing_switches, @derived_switches ); } |