Commit | Line | Data |
---|---|---|
c38a6530 | 1 | #!./perl |
2 | ||
3 | # Calls all tests in op/inccode.t after tying @INC first. | |
4 | ||
5 | use Tie::Array; | |
6 | my @orig_INC = @INC; | |
7 | tie @INC, 'Tie::StdArray'; | |
8 | @INC = @orig_INC; | |
9 | for my $file ('./op/inccode.t', './t/op/inccode.t', ':op:inccode.t') { | |
10 | if (-r $file) { | |
e81465be | 11 | do $file or die $@; |
c38a6530 | 12 | exit; |
13 | } | |
14 | } | |
15 | die "Cannot find ./op/inccode.t or ./t/op/inccode.t\n"; |