[ID 20020220.002] Perl 5.7.2 porting patches for POSIX 1003.1-2001 hosts

[p5sagit/p5-mst-13.2.git] / utf8.c

diff --git a/utf8.c b/utf8.c
index 6414e2b..7dbb71f 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1348,8 +1348,8 @@ Perl_to_utf8_case(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, char *norma
                   Copy(tmpbuf, ustrp, len, U8);
 #else
                   Copy(s, ustrp, len, U8);
-             }
 #endif
+             }
         }
     }
 
@@ -1360,7 +1360,7 @@ Perl_to_utf8_case(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, char *norma
              /* It was "normal" (a single character mapping). */
              UV uv3 = UNI_TO_NATIVE(uv2);
              
-             len = uvuni_to_utf8(ustrp, uv3) - ustrp;
+             len = uvchr_to_utf8(ustrp, uv3) - ustrp;
         }
     }