X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=05d60da4263819f287f618797a6e99f09b2858c9;hb=bdaf5af2e37d634a418f6387a8e87d37e72beee4;hp=d591a759c13ebdb9d4012d2de1ec983deae0aad5;hpb=1da764455f3f82a24aad0881beb01f5e4d3cf858;p=perl%2Fmodules%2FScope-Upper.git

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);
   }