From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 24 Apr 2002 17:03:22 +0000 (+0000)
Subject: Thou shalt not assume %x works for UVs.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4da7dce7048c59f69f6887c20a3c326dc4f2428;p=p5sagit%2Fp5-mst-13.2.git

Thou shalt not assume %x works for UVs.

p4raw-id: //depot/perl@16132
---

diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index 53716b8..1476456 100644
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -141,7 +141,7 @@ encode_method(pTHX_ encode_t * enc, encpage_t * dir, SV * src,
        			goto ENCODE_SET_SRC;
 		    }else if (check & ENCODE_PERLQQ){
 			SV* perlqq = 
-			    sv_2mortal(newSVpvf("\\x{%04x}", ch));
+			    sv_2mortal(newSVpvf("\\x{%04"UVxf"}", ch));
 			sdone += slen + clen;
 			ddone += dlen + SvCUR(perlqq);
 			sv_catsv(dst, perlqq);