Move TestInit.pm to the top level of the distribution, to make it easier to use.

3 files changed, 4 insertions, 4 deletions

diff --git a/MANIFEST b/MANIFEST
index 0c20ae4108..e492462ee3 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -3986,6 +3986,7 @@ t/comp/term.t			See if more terms work
 t/comp/uproto.t			See if the _ prototype works
 t/comp/use.t			See if pragmata work
 t/comp/utf.t			See if UTFs work
+TestInit.pm			Preamble library for tests
 t/harness			Finer diagnostics from test suite
 thread.h			Threading header
 time64.c			64 bit clean time.h (code)
@@ -4406,7 +4407,6 @@ t/run/switchx2.aux		Data for switchx.t
 t/run/switchx.aux		Data for switchx.t
 t/run/switchx.t			Test the -x switch
 t/TEST				The regression tester
-t/TestInit.pm			Preamble library for core tests
 t/test.pl			Simple testing library
 t/thread_it.pl			Run regression tests in a new thread
 t/uni/cache.t			See if Unicode swash caching works
diff --git a/t/TestInit.pm b/TestInit.pm
index 3d03ed82e1..3d03ed82e1 100644
--- a/t/TestInit.pm
+++ b/TestInit.pm
diff --git a/t/TEST b/t/TEST
index 912e4ef596..0231332601 100755
--- a/t/TEST
+++ b/t/TEST
@@ -20,7 +20,7 @@ my %dir_to_switch =
     (base => '',
      comp => '',
      run => '',
-     '../ext/File-Glob/t' => '-I. -MTestInit', # FIXME - tests assume t/
+     '../ext/File-Glob/t' => '-I.. -MTestInit', # FIXME - tests assume t/
      );
 
 my %temp_no_core =
@@ -198,13 +198,13 @@ sub _run_test {
 	    $return_dir = '../../t';
 	    $lib = '../../lib';
 	    $perl = '../../t/perl';
-	    $testswitch = "-I$return_dir -MTestInit=U2T,A";
+	    $testswitch = "-I../.. -MTestInit=U2T,A";
 	    if ($temp_no_core{$ext_dir}) {
 		$testswitch = $testswitch . ',NC';
 	    }
 	    chdir $ext_dir or die "Can't chdir to '$ext_dir': $!";
 	} else {
-	    $testswitch = '-I. -MTestInit';  # -T will remove . from @INC
+	    $testswitch = '-I.. -MTestInit';  # -T will remove . from @INC
 	}
     }