1898184e3Ssthen#!./perl 2898184e3Ssthen 391f110e0Safresh1BEGIN { 491f110e0Safresh1 chdir 't' if -d 't'; 591f110e0Safresh1 require './test.pl'; 6*5759b3d2Safresh1 set_up_inc('../lib'); 791f110e0Safresh1} 891f110e0Safresh1 991f110e0Safresh1plan tests => 1; 10898184e3Ssthen 11898184e3Ssthen# Make sure that case-insensitive matching of any Latin1 chars don't load 12898184e3Ssthen# utf8.pm. We assume that NULL won't force loading utf8.pm, and since it 13898184e3Ssthen# doesn't match any of the other chars, the regexec.c code would try to load 14898184e3Ssthen# a swash if it thought there was one. 15898184e3Ssthen"\0" =~ /[\001-\xFF]/i; 16898184e3Ssthen 1791f110e0Safresh1ok(! exists $INC{"utf8.pm"}, 'case insensitive matching of any Latin1 chars does not load utf8.pm'); 18