t/re/substT.t

   1 #!perl -wT
   2
   3 for $file ('re/subst.t', 't/re/subst.t', ':re:subst.t') {
   4   if (-r $file) {
   5     do "./$file";
   6     exit;
   7   }
   8 }
   9 die "Cannot find re/subst.t or t/re/subst.t\n";