t/re/regexp_noamp.t

   1 #!./perl
   2
   3 # Doesn't look at the expect field if it contains $&.
   4
   5 $skip_amp = 1;
   6 for $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') {
   7   if (-r $file) {
   8     do $file or die $@;
   9     exit;
  10   }
  11 }
  12 die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n";