Commit | Line | Data |
---|---|---|
a4499558 YO |
1 | #!./perl |
2 | ||
a27f093b KW |
3 | # Doesn't look at the expect field if it contains $&. |
4 | ||
a4499558 YO |
5 | $skip_amp = 1; |
6 | for $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') { | |
7 | if (-r $file) { | |
8 | do $file or die $@; | |
9 | exit; | |
10 | } | |
11 | } | |
12 | die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n"; |