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";