From 85e5b9c425db1d20386aec3fef152f72a4fe66d4 Mon Sep 17 00:00:00 2001
From: jnthn <jnthn@jnthn.net>
Date: Tue, 12 May 2009 15:04:49 +0200
Subject: [PATCH] Twiddle the test harness patch to perl6 on Win32 so env.t
 works under the harness. I'm still a little bewildered how we ever managed to
 run any tests...

---
 t/harness | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/t/harness b/t/harness
index dc68e9aa886..b67d164c02b 100644
--- a/t/harness
+++ b/t/harness
@@ -12,7 +12,8 @@ use FindBin;
 use File::Spec;
 use Getopt::Long qw(:config pass_through);
 
-$ENV{'HARNESS_PERL'} = './perl6';
+my $slash = $^O eq 'MSWin32' ? '\\' : '/';
+$ENV{'HARNESS_PERL'} = ".${slash}perl6";
 use Test::Harness;
 $Test::Harness::switches = '';
 
@@ -27,8 +28,6 @@ GetOptions(
 my @pass_through_options = grep m/^--?[^-]/, @ARGV;
 my @files = grep m/^[^-]/, @ARGV;
 
-my $slash = $^O eq 'MSWin32' ? '\\' : '/';
-
 if ($list_file) {
     open(my $f, '<', $list_file)
         or die "Can't open file '$list_file' for reading: $!";