]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
SU_GET_CONTEXT() only needs to skip DB frames when no context was passed
authorVincent Pit <vince@profvince.com>
Fri, 16 Jan 2009 19:43:32 +0000 (20:43 +0100)
committerVincent Pit <vince@profvince.com>
Fri, 16 Jan 2009 19:43:32 +0000 (20:43 +0100)
Upper.xs

index 14923a61b4903b5c1c2885c01ad645e305ca6ead..b6e473da5a1cca7be75748f690441bee6e2ce1ce 100644 (file)
--- 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 */