blob: 82e035465f71d070cf0ff3fdd451ced1ec53f5ea (
plain)
1
2
3
4
5
6
7
8
9
|
#!perl -wT
for $file ('op/subst.t', 't/op/subst.t', ':op:subst.t') {
if (-r $file) {
do ($^O eq 'MacOS' ? $file : "./$file");
exit;
}
}
die "Cannot find op/subst.t or t/op/subst.t\n";
|