detypo

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

diff --git a/utf8.c b/utf8.c
index 6a99d9d..e86c49f 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -333,7 +333,7 @@ Perl_utf16_to_utf8(pTHX_ U8* p, U8* d, I32 bytelen, I32 *newlen)
     U8* dstart = d;
 
     if (bytelen & 1)
-       Perl_croak("panic: utf16_to_utf8: odd bytelen");
+       Perl_croak(aTHX_ "panic: utf16_to_utf8: odd bytelen");
 
     pend = p + bytelen;