make die reliably hand error to post-eval code

[p5sagit/p5-mst-13.2.git] / t / re / substT.t

#!perl -wT

for $file ('re/subst.t', 't/re/subst.t', ':re:subst.t') {
  if (-r $file) {
    do "./$file";
    exit;
  }
}
die "Cannot find re/subst.t or t/re/subst.t\n";