t/re/no_utf8_pm.t

   1 #!./perl
   2
   3 print "1..1\n";
   4
   5 # Make sure that case-insensitive matching of any Latin1 chars don't load
   6 # utf8.pm.  We assume that NULL won't force loading utf8.pm, and since it
   7 # doesn't match any of the other chars, the regexec.c code would try to load
   8 # a swash if it thought there was one.
   9 "\0" =~ /[\001-\xFF]/i;
  10
  11 print "not " if exists $INC{"utf8.pm"};
  12 print "ok 1\n";