From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 17 Jun 2005 14:44:43 +0000 (+0000)
Subject: Missing aTHX_ (noticed by Jim Cromie)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=921edb34b59f6bb5c639b930faa40035c9aaf154;p=p5sagit%2Fp5-mst-13.2.git

Missing aTHX_ (noticed by Jim Cromie)

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

diff --git a/sv.c b/sv.c
index 3b67571..eea7ae1 100644
--- a/sv.c
+++ b/sv.c
@@ -1345,8 +1345,8 @@ Perl_sv_upgrade(pTHX_ register SV *sv, U32 mt)
 	return;
 
     if (SvTYPE(sv) > mt)
-	croak ("sv_upgrade from type %d down to type %d", (int)SvTYPE(sv),
-	       (int)mt);
+	Perl_croak(aTHX_ "sv_upgrade from type %d down to type %d",
+		(int)SvTYPE(sv), (int)mt);
 
     pv = NULL;
     cur = 0;