X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=cop.h;h=803be293a2a5004fd1052b19e24dd04745a5683a;hb=a77df738193280ffa098f7f89c9640b77c4b9d4c;hp=4b2e04ff41a8f1a804a38b4f802c864054c9474a;hpb=bac4b2ad63e048350f82163026a348685ed8c235;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/cop.h b/cop.h
index 4b2e04f..803be29 100644
--- a/cop.h
+++ b/cop.h
@@ -285,6 +285,7 @@ struct context {
 #define G_EVAL		4	/* Assume eval {} around subroutine call. */
 #define G_NOARGS	8	/* Don't construct a @_ array. */
 #define G_KEEPERR      16	/* Append errors to $@, don't overwrite it */
+#define G_NODEBUG      32	/* Disable debugging at toplevel.  */
 
 /* Support for switching (stack and block) contexts.
  * This ensures magic doesn't invalidate local stack and cx pointers.
@@ -297,10 +298,8 @@ struct context {
 #define SI_SIGNAL	4
 #define SI_OVERLOAD	5
 #define SI_DESTROY	6
-/* XXX todo
 #define SI_WARNHOOK	7
 #define SI_DIEHOOK	8
-*/
 
 struct stackinfo {
     AV *		si_stack;	/* stack for current runlevel */