[Patch] croak -> Perl_croak in sv_upgrade

[Jim Cromie]

--- sv.c~       2005-06-17 08:11:03.000000000 -0600
+++ sv.c        2005-06-17 08:55:46.000000000 -0600
@@ -1342,7 +1342,7 @@
        return;
 
     if (SvTYPE(sv) > mt)
-       croak ("sv_upgrade from type %d down to type %d", SvTYPE(sv), mt);
+       Perl_croak (aTHX_ "sv_upgrade from type %d down to type %d", 
SvTYPE(sv), mt);
 
     pv = NULL;
     cur = 0;