X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utf8.c;h=e86c49fdcf63ab3aac316e0f63656274f4ddbf6b;hb=52ff2102b66b4ff4f5590a35d228a2c59f666e32;hp=6a99d9dff1937323ab7a57a5a3606ca3f571e76f;hpb=dea0fc0b9e5a61b92c4be2ecafe0a8d9396d4cc1;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/utf8.c b/utf8.c
index 6a99d9d..e86c49f 100644
--- 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;