Commit | Line | Data |
---|---|---|
a3621e74 | 1 | #!./perl |
2 | #use re 'debug'; | |
3 | BEGIN { | |
4 | ${^RE_TRIE_MAXBUFF}=-1; | |
5 | #${^RE_DEBUG_FLAGS}=0; | |
6 | } | |
7 | ||
8 | $qr = 1; | |
9 | for $file ('./op/regexp.t', './t/op/regexp.t', ':op:regexp.t') { | |
10 | if (-r $file) { | |
e81465be | 11 | do $file or die $@; |
a3621e74 | 12 | exit; |
13 | } | |
14 | } | |
15 | die "Cannot find ./op/regexp.t or ./t/op/regexp.t\n"; |