changes required to Make It Work on the perl gitweb host
[perl.git] / t / TestInit.pm
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
16 package TestInit;
17
18 $VERSION = 1.01;
19
20 chdir '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
27 1;
28