X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=450945a184be2cc46baad9598cbd4bb5d47eccc1;hb=eef3f2764e7018e3eaf2f1d11f249b510d023a2d;hp=a843325e445509ac4e10cec4bef7c92bf1112633;hpb=2c74bc4090aec08eb60c71526ead3e249c6573c3;p=perl%2Fmodules%2FScope-Upper.git diff --git a/Upper.xs b/Upper.xs index a843325..450945a 100644 --- a/Upper.xs +++ b/Upper.xs @@ -1396,8 +1396,6 @@ static void su_yield(pTHX_ void *ud_) { U8 flags = 0; OP *next; - PERL_UNUSED_VAR(ud_); - cx = cxstack + cxix; switch (CxTYPE(cx)) { case CXt_BLOCK: {