diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-26 14:34:15 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-26 14:34:15 +0000 |
| commit | 6d47b937228c87804679e481f9585c659c524592 (patch) | |
| tree | 1cf7ce018561956064ccf593cebb61e84eee2b40 /utf8.c | |
| parent | 94b898283c35ddc92812a8e8be637f54c8c0989e (diff) | |
| download | perl-6d47b937228c87804679e481f9585c659c524592.tar.gz | |
More logical to use %04"UVXf" than %"UVuf" since
the Unicode standard prefers hex.
p4raw-id: //depot/perl@12691
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1198,7 +1198,7 @@ Perl_to_utf8_case(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp,char *normal uv = utf8_to_uvchr(p, 0); if ((hv = get_hv(special, FALSE)) && - (keysv = sv_2mortal(Perl_newSVpvf(aTHX_ "%"UVuf, uv))) && + (keysv = sv_2mortal(Perl_newSVpvf(aTHX_ "%04"UVXf, uv))) && (he = hv_fetch_ent(hv, keysv, FALSE, 0))) { SV *val = HeVAL(he); char *s = SvPV(val, *lenp); |