In EBCDIC the UNI_TO_NATIVE() macro evaluates its argument

twice, causing the loop to skip every other character.

p4raw-id: //depot/perl@14800

1 files changed, 4 insertions, 2 deletions

diff --git a/utf8.c b/utf8.c
index 7dbb71f7df..6fc4acd214 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1341,8 +1341,10 @@ Perl_to_utf8_case(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, char *norma
 			}
 		   }
 		   else {
-			while (t < tend)
-			     d = uvchr_to_utf8(d, UNI_TO_NATIVE(*t++));
+			while (t < tend) {
+			     d = uvchr_to_utf8(d, UNI_TO_NATIVE(*t));
+			     t++;
+			}
 		   }
 		   len = d - tmpbuf;
 		   Copy(tmpbuf, ustrp, len, U8);