From: Vincent Pit <perl@profvince.com>
Date: Mon, 6 Jun 2016 09:24:19 +0000 (+0200)
Subject: ud_ is not unused in su_yield()
X-Git-Tag: rt112246^2
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=cea004750ddd2c289052c7e08a5aa130cf54fe2e;p=perl%2Fmodules%2FScope-Upper.git

ud_ is not unused in su_yield()
---

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: {