Change 16132: Thou shalt not assume %x works for UVs.

[Jarkko Hietaniemi]

Change 16132 by jhi@alpha on 2002/04/24 17:03:22

        Thou shalt not assume %x works for UVs.

Affected files ...

.... //depot/perl/ext/Encode/Encode.xs#76 edit

Differences ...

==== //depot/perl/ext/Encode/Encode.xs#76 (text) ====
Index: perl/ext/Encode/Encode.xs
--- perl/ext/Encode/Encode.xs.~1~       Wed Apr 24 11:15:05 2002
+++ perl/ext/Encode/Encode.xs   Wed Apr 24 11:15:05 2002
@@ -141,7 +141,7 @@
                                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);
End of Patch.