t/re/regexp_nonull.t

   1 #!./perl
   2
   3 # Matches regular expressions against strings with no terminating null
   4 # character.
   5
   6 print("1..0 # Skip No XS::APItest under miniperl\n"), exit 0 if
   7   !defined &DynaLoader::boot_DynaLoader;
   8
   9 $no_null = 1;
  10 require XS::APItest;
  11 for $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') {
  12   if (-r $file) {
  13     do $file or die $@;
  14     exit;
  15   }
  16 }
  17 die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n";