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, 7 insertions, 0 deletions

diff --git a/ext/XS-APItest/t/utf16_to_utf8.t b/ext/XS-APItest/t/utf16_to_utf8.t
index 3da3d7d12b..83add20a27 100644
--- a/ext/XS-APItest/t/utf16_to_utf8.t
+++ b/ext/XS-APItest/t/utf16_to_utf8.t
@@ -47,3 +47,10 @@ for (["\xD8\0\0\0", 'NULs'],
 	 "Malformed surrogate $name croaks for utf16_to_utf8_reversed");
     is($got, undef, 'hence eval returns undef');
 }
+
+my $in = "NA";
+$got = eval {utf16_to_utf8_reversed($in, 1)};
+like($@, qr/^panic: utf16_to_utf8_reversed: odd bytelen 1 at/,
+     'Odd byte length panics');
+is($got, undef, 'hence eval returns undef');
+is($in, "NA", 'and input unchanged');