is now always UTF-8), empty line cosmetics.
p4raw-id: //depot/perl@7998
ok $1, '123alpha';
$test++; # 12
}
+
{
use utf8;
ok $1, pack("C*", 0342);
$test++; # 40
-
}
-
{
no utf8;
$_="\342\230\272>\342\230\272\342\230\272";
ok $tmp, pack("C*", 0342, 0230, 0272);
$test++; # 54
}
+
{
use bytes;
no utf8;
ok $1, pack("C*", 0342);
$test++; # 64
-
}
ok "\x{ab}" =~ /^\x{ab}$/, 1;
{
# bug id 20000323.056
- use utf8;
-
print "not " unless "\x{41}" eq +v65;
print "ok $test\n";
$test++;