From 9f3673fbb8fe5a0673a009424f0aef544e49f0f4 Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 25 Jul 2004 19:05:28 +0000
Subject: make -Dl log runops loop entry and exit, and jump level popping

p4raw-id: //depot/perl@23161
---
 scope.h | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'scope.h')

diff --git a/scope.h b/scope.h
index f86039dbd1..29bc4c6e27 100644
--- a/scope.h
+++ b/scope.h
@@ -394,7 +394,11 @@ typedef void *(CPERLscope(*protect_proc_t)) (pTHX_ volatile JMPENV *pcur_env,
     } STMT_END
 
 #define JMPENV_POP \
-    STMT_START { PL_top_env = cur_env.je_prev; } STMT_END
+    STMT_START {							\
+	DEBUG_l(Perl_deb(aTHX_ "popping jumplevel was %p, now %p\n",	\
+			 PL_top_env, cur_env.je_prev));			\
+	PL_top_env = cur_env.je_prev;					\
+    } STMT_END
 
 #define JMPENV_JUMP(v) \
     STMT_START {						\
-- 
cgit v1.2.1