format and other warnings

[p5sagit/p5-mst-13.2.git] / t / harness

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";