ud_ is not unused in su_yield()

[perl/modules/Scope-Upper.git] / Upper.xs

diff --git a/Upper.xs b/Upper.xs
index a843325e445509ac4e10cec4bef7c92bf1112633..450945a184be2cc46baad9598cbd4bb5d47eccc1 100644 (file)
--- 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: {