utf8.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!perl -w
BEGIN {
if ($] < 5.006) {
print "1..0 # Skipped: your perl don't know unicode\n";
exit;
}
}
print "1..3\n";
use strict;
my $str;
$str = "foo\xFF\x{100}";
eval {
print "not ok 1\n"; # should not run
};
print "ok 1\n";
"c307ec81deba65e9a222ca81cd8f6ccd" :
"503debffe559537231ed24f25651ec20"; # Latin 1
print "ok 2\n";
# reference
print "ok 3\n";