From: Vincent Pit 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); }