Commit | Line | Data |
---|---|---|
073b366a KW |
1 | #!./perl |
2 | ||
3 | # This tests that the (?[...]) feature doesn't introduce unexpected | |
4 | # differences from regular bracketed character classes. It just sets a flag | |
5 | # and calls regexp.t which will run through its test suite, modifiying the | |
6 | # tests to use (?[...]) instead wherever the test uses []. | |
7 | ||
8 | BEGIN { $regex_sets = 1; } | |
9 | for $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') { | |
10 | if (-r $file) { | |
11 | do $file or die $@; | |
12 | exit; | |
13 | } | |
14 | } | |
15 | die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n"; |