From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 2 Dec 2008 14:59:37 +0000 (+0000)
Subject: Remove last reference to PERLDB_ASSERTION
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=925cfbb8b123624a89955b99570bfeaf8242cbf5;p=p5sagit%2Fp5-mst-13.2.git

Remove last reference to PERLDB_ASSERTION

p4raw-id: //depot/perl@34980
---

diff --git a/perl.h b/perl.h
index 3a63261..e9c3611 100644
--- a/perl.h
+++ b/perl.h
@@ -5333,7 +5333,7 @@ typedef struct am_table_short AMTS;
 				 PERLDBf_SUBLINE| PERLDBf_SINGLE|	\
 				 PERLDBf_NAMEEVAL| PERLDBf_NAMEANON |   \
 				 PERLDBf_SAVESRC)
-					/* No _NONAME, _GOTO, _ASSERTION */
+					/* No _NONAME, _GOTO */
 #define PERLDBf_SUB		0x01	/* Debug sub enter/exit */
 #define PERLDBf_LINE		0x02	/* Keep line # */
 #define PERLDBf_NOOPT		0x04	/* Switch off optimizations */
@@ -5359,7 +5359,6 @@ typedef struct am_table_short AMTS;
 #define PERLDB_GOTO	(PL_perldb && (PL_perldb & PERLDBf_GOTO))
 #define PERLDB_NAMEEVAL	(PL_perldb && (PL_perldb & PERLDBf_NAMEEVAL))
 #define PERLDB_NAMEANON	(PL_perldb && (PL_perldb & PERLDBf_NAMEANON))
-#define PERLDB_ASSERTION (PL_perldb && (PL_perldb & PERLDBf_ASSERTION))
 #define PERLDB_SAVESRC 	(PL_perldb && (PL_perldb & PERLDBf_SAVESRC))
 #define PERLDB_SAVESRC_NOSUBS	(PL_perldb && (PL_perldb & PERLDBf_SAVESRC_NOSUBS))
 #define PERLDB_SAVESRC_INVALID	(PL_perldb && (PL_perldb & PERLDBf_SAVESRC_INVALID))