my $r = "threads";
eval { require $r };
$i++;
-if($@ =~ /Directory .*threads not allowed in require/) {
+if($@ =~ /Can't locate threads in \@INC/) {
print "ok $i\n";
} else {
print "not ok $i\n";
print "not ok $i\n";
}
-############################
-#### Add new tests here ####
-############################
+##########################################
+# What follows are UTF-8 specific tests. #
+# Add generic tests before this point. #
+##########################################
# UTF-encoded things - skipped on EBCDIC machines and on UTF-8 input