t/re/regexp_qr_embed.t

*b39c5158Smillert#!./perl
*b39c5158Smillert
*b39c5158Smillert$qr = 1;
*b39c5158Smillert$qr_embed = 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";