Missing aTHX_ (noticed by Jim Cromie)

p4raw-id: //depot/perl@24887

1 files changed, 2 insertions, 2 deletions

diff --git a/sv.c b/sv.c
index 3b6757154d..eea7ae1cae 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;