From: Vincent Pit <vince@profvince.com>
Date: Sat, 3 Sep 2011 22:49:12 +0000 (+0200)
Subject: Silence some "Attempt to free unreferenced scalar" errors
X-Git-Tag: v0.16~1
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=bdaf5af2e37d634a418f6387a8e87d37e72beee4;p=perl%2Fmodules%2FScope-Upper.git

Silence some "Attempt to free unreferenced scalar" errors

They were printed during the second benchmark.
---

diff --git a/Upper.xs b/Upper.xs
index d591a75..05d60da 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -1235,7 +1235,7 @@ STATIC I32 su_uplevel(pTHX_ CV *cv, I32 cxix, I32 args) {
    AvFILLp(av) = AvFILLp(cx->blk_sub.argarray);
    Copy(AvARRAY(cx->blk_sub.argarray), AvARRAY(av), AvFILLp(av) + 1, SV *);
    cxstack[cxix].blk_sub.argarray = av;
-  } else if (PL_DBsub) {
+  } else {
    SvREFCNT_inc(cxstack[cxix].blk_sub.argarray);
   }