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