Re: Compress::Zlib, pack "C" and utf-8 [PATCH]

[p5sagit/p5-mst-13.2.git] / ext / Encode / t / encoding.t

diff --git a/ext/Encode/t/encoding.t b/ext/Encode/t/encoding.t
index 67ea068..b17b11f 100644 (file)
--- a/ext/Encode/t/encoding.t
+++ b/ext/Encode/t/encoding.t
@@ -57,7 +57,7 @@ print "not " unless unpack("C", pack("C", 0xdf)) == 0xdf;
 print "ok 8\n";
 
 # the first octet of UTF-8 encoded 0x3af 
-print "not " unless unpack("C", chr(0xdf)) == 0xce;
+print "not " unless unpack("U0 C", chr(0xdf)) == 0xce;
 print "ok 9\n";
 
 print "not " unless unpack("U", pack("U", 0xdf)) == 0xdf;