[REPATCH] Re: [PATCH] Re: socketpair blip on unicos/mk, too
[p5sagit/p5-mst-13.2.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 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