t/re/subst_wamp.t

   1 #!./perl
   2
   3 $dummy = defined $&;            # Now we have it...
   4 for $file ('re/subst.t', 't/re/subst.t', ':re:subst.t') {
   5   if (-r $file) {
   6     do "./$file";
   7     exit;
   8   }
   9 }
  10 die "Cannot find re/subst.t or t/re/subst.t\n";
  11