t/re/regexp_noamp.t

b39c5158Smillert#!./perl
b39c5158Smillert
*898184e3Ssthen# Doesn't look at the expect field if it contains $&.
*898184e3Ssthen
b39c5158Smillert$skip_amp = 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";