diff options
| author | Marc Lehmann <pcg@goof.com> | 2007-04-12 10:41:53 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-05-10 12:41:08 +0000 |
| commit | 1651fc447620d3610b694c35696c13530282f981 (patch) | |
| tree | 482a8b5110d6232c00a8ca636cbf9cec7e723652 /ext/Unicode | |
| parent | ad91da88822a061453a454578ec2246dd493ffdd (diff) | |
| download | perl-1651fc447620d3610b694c35696c13530282f981.tar.gz | |
Re: Compress::Zlib, pack "C" and utf-8 [PATCH]
Message-ID: <20070412064153.GA22475@schmorp.de>
p4raw-id: //depot/perl@31194
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"; |