t/re/regexp_qr_embed_thr.t

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