s/croak/Perl_croak/

p4raw-id: //depot/perl@5139

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index e22dbc27d0..52bf820a0b 100644
--- a/sv.c
+++ b/sv.c
@@ -2333,7 +2333,7 @@ Perl_sv_utf8_downgrade(pTHX_ register SV* sv, bool fail_ok)
 			return FALSE;
 		    else {
 			/* XXX might want to make a callback here instead */
-			croak("Big byte");
+			Perl_croak(aTHX_ "Big byte");
 		    }
 		}
                 if (!first_hi)