Fix typo in TestInit and revert workaround.

diff --git a/t/TEST b/t/TEST
index 065d8c8..7f2190c 100755 (executable)
--- 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 (file)
--- 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 = ':';