projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Re: Change 29723 breaks t/op/inccode-tie.t on Win32
[p5sagit/p5-mst-13.2.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";