1*b39c5158Smillert#!./perl 2*b39c5158Smillert#use re 'debug'; 3*b39c5158SmillertBEGIN { 4*b39c5158Smillert ${^RE_TRIE_MAXBUF}=-1; 5*b39c5158Smillert #${^RE_DEBUG_FLAGS}=0; 6*b39c5158Smillert} 7*b39c5158Smillert 8*b39c5158Smillert$qr = 1; 9*b39c5158Smillertfor $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') { 10*b39c5158Smillert if (-r $file) { 11*b39c5158Smillert do $file or die $@; 12*b39c5158Smillert exit; 13*b39c5158Smillert } 14*b39c5158Smillert} 15*b39c5158Smillertdie "Cannot find ./re/regexp.t or ./t/re/regexp.t\n"; 16