diff options
Diffstat (limited to 'ext/Unicode')
| -rw-r--r-- | ext/Unicode/Normalize/t/short.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Unicode/Normalize/t/short.t b/ext/Unicode/Normalize/t/short.t index d799f4a096..a9e444f98a 100644 --- a/ext/Unicode/Normalize/t/short.t +++ b/ext/Unicode/Normalize/t/short.t @@ -35,7 +35,7 @@ print "ok 1\n"; no warnings qw(utf8); # U+3042 is 3-byte length (in UTF-8/UTF-EBCDIC) -our $a = pack 'U0C', unpack 'C', "\x{3042}"; +our $a = pack 'U0C', unpack 'U0C', "\x{3042}"; print NFD($a) eq "\0" ? "ok" : "not ok", " 2\n"; |