[t/harness] use backslash on windows

rakudo · Sep 3, 2011 · 1b7dd12 · 1b7dd12
1 parent a553460
commit 1b7dd12
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t/harness b/t/harness
@@ -79,7 +79,7 @@ if ($archive) {
 
 if (eval "require $tap_harness_class;") {
     my %harness_options = (
-        exec        => ['./perl6'],
+        exec        => [$ENV{HARNESS_PERL}],
         verbosity   => 0+$Test::Harness::verbose,
         jobs        => $jobs || $ENV{TEST_JOBS} || 1,
         ignore_exit => 1,