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