From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 2 Aug 1999 06:55:51 +0000 (+0000)
Subject: debug build tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fafe5ef9b0f9552ce3bd6b5ce464911fdd3aaaff;p=p5sagit%2Fp5-mst-13.2.git

debug build tweak

p4raw-id: //depot/perl@3868
---

diff --git a/regexec.c b/regexec.c
index 9a7e91b..6be77cc 100644
--- a/regexec.c
+++ b/regexec.c
@@ -377,7 +377,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
 
 #ifdef DEBUGGING	/* 7/99: reports of failure (with the older version) */
     if (end_shift < 0)
-	croak("panic: end_shift");
+	Perl_croak(aTHX_ "panic: end_shift");
 #endif
 
     check = prog->check_substr;