]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
Silence some "Attempt to free unreferenced scalar" errors
authorVincent Pit <vince@profvince.com>
Sat, 3 Sep 2011 22:49:12 +0000 (00:49 +0200)
committerVincent Pit <vince@profvince.com>
Sat, 3 Sep 2011 22:49:12 +0000 (00:49 +0200)
They were printed during the second benchmark.

Upper.xs

index d591a759c13ebdb9d4012d2de1ec983deae0aad5..05d60da4263819f287f618797a6e99f09b2858c9 100644 (file)
--- 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);
   }