Small optimisations, by Brandon Black
[p5sagit/p5-mst-13.2.git] / t / op / substT.t
1 #!perl -wT
2
3 for $file ('op/subst.t', 't/op/subst.t', ':op:subst.t') {
4   if (-r $file) {
5     do ($^O eq 'MacOS' ? $file : "./$file");
6     exit;
7   }
8 }
9 die "Cannot find op/subst.t or t/op/subst.t\n";