From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 3 May 2001 02:42:46 +0000 (+0000)
Subject: Can't croak sans thread context, from Doug MacEachern.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a84063870a4b437cc46e9b3a8e3a90f3373d0c09;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;