utf16_to_utf8_reversed() should croak early when passed an odd byte length.

Rather than transposing n + 1 bytes, including 1 it was not passed, before
calling utf16_to_utf8() and having that croak.
e	69422~

1 files changed, 4 insertions, 0 deletions

diff --git a/utf8.c b/utf8.c
index 7b7fd5712f..455078d582 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1020,6 +1020,10 @@ Perl_utf16_to_utf8_reversed(pTHX_ U8* p, U8* d, I32 bytelen, I32 *newlen)
 
     PERL_ARGS_ASSERT_UTF16_TO_UTF8_REVERSED;
 
+    if (bytelen & 1)
+	Perl_croak(aTHX_ "panic: utf16_to_utf8_reversed: odd bytelen %"UVuf,
+		   (UV)bytelen);
+
     while (s < send) {
 	const U8 tmp = s[0];
 	s[0] = s[1];