keep paths consistently slashed on windows

p4raw-id: //depot/perl@16459

diff --git a/t/harness b/t/harness
index 53665f4..1a15ebc 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -74,7 +74,9 @@ if (@ARGV) {
        push @tests, <pod/*.t>;
     }
 }
-
+if ($^O eq 'MSWin32') {
+    s,\\,/,g for @tests;
+}
 Test::Harness::runtests @tests;
 exit(0) unless -e "../testcompile";