no_utf8_pm.t: Add blank between 'not' and 'ok' in .t
[perl.git] / 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";