t/op/regexp_noamp.t

   1 #!./perl
   2
   3 $skip_amp = 1;
   4 for $file ('./op/regexp.t', './t/op/regexp.t', ':op:regexp.t') {
   5   if (-r $file) {
   6     do $file;
   7     exit;
   8   }
   9 }
  10 die "Cannot find ./op/regexp.t or ./t/op/regexp.t\n";