From: Vincent Pit <vince@profvince.com>
Date: Thu, 14 Jan 2010 22:39:34 +0000 (+0100)
Subject: Fix building with SU_DEBUG defined on 5.8
X-Git-Tag: v0.10~11
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=3526c968f54d113b037c15b1b5bb9465e88a7dd0;p=perl%2Fmodules%2FScope-Upper.git

Fix building with SU_DEBUG defined on 5.8
---

diff --git a/Upper.xs b/Upper.xs
index 436a5b5..76be07a 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -397,7 +397,8 @@ STATIC void su_localize(pTHX_ void *ud_) {
  }
 
  SU_D({
-  SV *z = newSV_type(t);
+  SV *z = newSV(0);
+  SvUPGRADE(z, t);
   PerlIO_printf(Perl_debug_log, "%p: === localize a %s at %d (save is %d)\n",
                                  ud, sv_reftype(z, 0),
                                      PL_scopestack_ix, PL_savestack_ix);