From: Steve Hay <SteveHay@planit.com>
Date: Sun, 30 Aug 2009 02:48:59 +0000 (+0100)
Subject: Fix typo in TestInit and revert workaround.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ff5bc37303d3f603211be08e5e01dac62fcfa6c;p=p5sagit%2Fp5-mst-13.2.git

Fix typo in TestInit and revert workaround.
---

diff --git a/t/TEST b/t/TEST
index 065d8c8..7f2190c 100755
--- a/t/TEST
+++ b/t/TEST
@@ -197,9 +197,7 @@ sub _run_test {
 	    $ext_dir = $1;
 	    $return_dir = '../../t';
 	    $lib = '../../lib';
-	    # Something doesn't quite work correctly when making paths
-	    # that contain /t/ absolute on Win32. \t being interpreted as tab?
-	    $perl = $^O eq 'MSWin32' ? '../../perl' : '../../t/perl';
+	    $perl = '../../t/perl';
 	    $testswitch = "-I$return_dir -MTestInit=U2T,A";
 	    if ($temp_no_core{$ext_dir}) {
 		$testswitch = $testswitch . ',NC';
diff --git a/t/TestInit.pm b/t/TestInit.pm
index 31faebb..253de71 100644
--- a/t/TestInit.pm
+++ b/t/TestInit.pm
@@ -42,7 +42,7 @@ sub set_opt {
     my $sep;
     if ($^O eq 'VMS') {
 	$sep = '|';
-    } elsif ($^O eq 'Win32') {
+    } elsif ($^O eq 'MSWin32') {
 	$sep = ';';
     } else {
 	$sep = ':';