From: Vincent Pit <vince@profvince.com>
Date: Sun, 16 Sep 2012 20:48:34 +0000 (+0200)
Subject: Fix debugger compatibility with perl 5.17.1 and above
X-Git-Tag: v0.20~3
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=51c9cbffce75ccfe84b3ba9627ae0d697b0acf29

Fix debugger compatibility with perl 5.17.1 and above
---

diff --git a/Upper.xs b/Upper.xs
index 10b7964..3de19a9 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -1977,6 +1977,9 @@ STATIC I32 su_context_skip_db(pTHX_ I32 cxix) {
   PERL_CONTEXT *cx = cxstack + i;
 
   switch (CxTYPE(cx)) {
+#if SU_HAS_PERL(5, 17, 1)
+   case CXt_LOOP_PLAIN:
+#endif
    case CXt_BLOCK:
     if (cx->blk_oldcop && CopSTASH(cx->blk_oldcop) == GvSTASH(PL_DBgv))
      continue;