From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 29 Aug 2009 20:31:45 +0000 (+0100)
Subject: Use ../../perl instead of ../../t/perl on Win32, as the latter doesn't work.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f96267964ee5927ec664b88d0dc0ab724d45540;p=p5sagit%2Fp5-mst-13.2.git

Use ../../perl instead of ../../t/perl on Win32, as the latter doesn't work.

There seems to be some problem when paths that contain a directory named t are
make absolute, then fed to the command shell to be executed. I'm suspicious
that \t is getting interpolated as a tab by something, but there is no
confirmed diagnosis yet.
---

diff --git a/t/TEST b/t/TEST
index 7f2190c..065d8c8 100755
--- a/t/TEST
+++ b/t/TEST
@@ -197,7 +197,9 @@ sub _run_test {
 	    $ext_dir = $1;
 	    $return_dir = '../../t';
 	    $lib = '../../lib';
-	    $perl = '../../t/perl';
+	    # 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';
 	    $testswitch = "-I$return_dir -MTestInit=U2T,A";
 	    if ($temp_no_core{$ext_dir}) {
 		$testswitch = $testswitch . ',NC';