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