1# This is a replacement for the old BEGIN preamble which heads (or 2# should head) up every core test program to prepare it for running. 3# Now instead of: 4# 5# BEGIN { 6# chdir 't' if -d 't'; 7# @INC = '../lib'; 8# } 9# 10# t/TEST will use -MTestInit. You may "use TestInit" in the test 11# programs but it is not required. 12# 13# P.S. This documentation is not in POD format in order to avoid 14# problems when there are fundamental bugs in perl. 15 16package TestInit; 17 18$VERSION = 1.01; 19 20chdir 't' if -d 't'; 21@INC = '../lib'; 22 23# Don't interfere with the taintedness of %ENV, this could perturbate tests 24$ENV{PERL_CORE} = 1 unless ${^TAINT}; 25 26$0 =~ s/\.dp$//; # for the test.deparse make target 271; 28 29