| | 1 | # This is a replacement for the old BEGIN preamble which heads (or |
| | 2 | # should head) up every core test program to prep 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. It also doesn't hurt if you "use TestInit" |
| | 11 | # (not require) in the test scripts. |
| | 12 | # |
| | 13 | # PS this is not POD because this should be a very minimalist module in |
| | 14 | # case of funaemental perl breakage. |
| | 15 | |
| | 16 | package TestInit; |
| | 17 | |
| | 18 | chdir 't' if -d 't'; |
| | 19 | @INC = '../lib'; |
| | 20 | $0 =~ s/\.dp$//; # for the test.deparse make target |
| | 21 | 1; |
| | 22 | |
https://perl5.git.perl.org / perl5.git / blame_incremental