Update releaser managers
[perl.git] / t / op / inccode-tie.t
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) {
11         do $file; die $@ if $@;
12         exit;
13     }
14 }
15 die "Cannot find ./op/inccode.t or ./t/op/inccode.t\n";