From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 19 Feb 2000 07:55:18 +0000 (+0000)
Subject: s/croak/Perl_croak/
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9a54186f86fa89533f9a21879513bc2ce58df609;p=p5sagit%2Fp5-mst-13.2.git

s/croak/Perl_croak/

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

diff --git a/sv.c b/sv.c
index e22dbc2..52bf820 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)