This makes sure that no case insensitive match of a Latin1 character
causes the utf8_heavy code to be loaded.
t/README Instructions for regression tests
t/re/charset.t See if regex modifiers like /d, /u work properly
t/re/fold_grind.t See if case folding works properly
+t/re/no_utf8_pm.t Verify utf8.pm doesn't get loaded unless required
t/re/overload.t Test against string corruption in pattern matches on overloaded objects
t/re/pat_advanced.t See if advanced esoteric patterns work
t/re/pat_advanced_thr.t See if advanced esoteric patterns work in another thread
--- /dev/null
+#!./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";