gistfile1.txt

diff --git a/t/harness b/t/harness
index dc68e9a..b67d164 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: $!";