Add ENTER_with_name and LEAVE_with_name to automaticly check for matching ENTER/LEAVE...

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 10cd6b7..20df305 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -43,6 +43,9 @@ PERLVAR(Istack_base,  SV **)
 PERLVAR(Istack_max,    SV **)
 
 PERLVAR(Iscopestack,   I32 *)          /* scopes we've ENTERed */
+#ifdef DEBUGGING
+PERLVAR(Iscopestack_name, const char * *) /* name of the scopes we've ENTERed */
+#endif
 PERLVAR(Iscopestack_ix,        I32)
 PERLVAR(Iscopestack_max,I32)