From: Vincent Pit <vince@profvince.com>
Date: Fri, 16 Jan 2009 19:43:32 +0000 (+0100)
Subject: SU_GET_CONTEXT() only needs to skip DB frames when no context was passed
X-Git-Tag: v0.06~5
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=99be60ef0bf1ab01b168ee3cf39134eecacff8db;p=perl%2Fmodules%2FScope-Upper.git

SU_GET_CONTEXT() only needs to skip DB frames when no context was passed
---

diff --git a/Upper.xs b/Upper.xs
index 14923a6..b6e473d 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -647,10 +647,11 @@ STATIC void su_unwind(pTHX_ void *ud_) {
     cxix = 0;                  \
    else if (cxix > cxstack_ix) \
     cxix = cxstack_ix;         \
-  } else                       \
+  } else {                     \
    cxix = cxstack_ix;          \
-  if (PL_DBsub)                \
-   SU_SKIP_DB(cxix);           \
+   if (PL_DBsub)               \
+    SU_SKIP_DB(cxix);          \
+  }                            \
  } STMT_END
 
 XS(XS_Scope__Upper_unwind); /* prototype to pass -Wmissing-prototypes */