1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 require './test.pl'; 6 set_up_inc('../lib'); 7} 8 9plan tests => 1; 10 11# Make sure that case-insensitive matching of any Latin1 chars don't load 12# utf8.pm. We assume that NULL won't force loading utf8.pm, and since it 13# doesn't match any of the other chars, the regexec.c code would try to load 14# a swash if it thought there was one. 15"\0" =~ /[\001-\xFF]/i; 16 17ok(! exists $INC{"utf8.pm"}, 'case insensitive matching of any Latin1 chars does not load utf8.pm'); 18