[PATCH] Test::Harness defaults switches to ''

[Tatsuhiko Miyagawa]

current Test::Harness sets switches to '', not '-w' as documented.

--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>

--- lib/Test/Harness/Straps.pm~ Thu Jun 20 06:01:04 2002
+++ lib/Test/Harness/Straps.pm  Thu Aug 22 21:27:27 2002
@@ -322,7 +322,7 @@
     local *TEST;
     open(TEST, $file) or print "can't open $file. $!\n";
     my $first = <TEST>;
-    my $s = '';
+    my $s = $Test::Harness::Switches || '';
     $s .= " $ENV{'HARNESS_PERL_SWITCHES'}"
       if exists $ENV{'HARNESS_PERL_SWITCHES'};