| | 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 | |
https://perl5.git.perl.org / perl5.git / blame_incremental