#!./perl
#use re 'debug';
BEGIN {
${^RE_TRIE_MAXBUFF}=0;
#${^RE_DEBUG_FLAGS}=0;
}
$qr = 1;
for $file ('./op/regexp.t', './t/op/regexp.t', ':op:regexp.t') {
if (-r $file) {
do $file;
exit;
}
}
die "Cannot find ./op/regexp.t or ./t/op/regexp.t\n";