t/re/regexp_trielist.t

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