Can't croak sans thread context, from Doug MacEachern.

p4raw-id: //depot/perl@9970

diff --git a/toke.c b/toke.c
index 39b4b24..347e86f 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2848,7 +2848,7 @@ Perl_yylex(pTHX)
            if (s < d)
                s++;
            else if (s > d) /* Found by Ilya: feed random input to Perl. */
-               croak("panic: input overflow");
+             Perl_croak(aTHX_ "panic: input overflow");
            incline(s);
            if (PL_lex_formbrack && PL_lex_brackets <= PL_lex_formbrack) {
                PL_bufptr = s;