diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-05 10:10:33 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-05 10:10:33 +0000 |
| commit | 584420f022db57225e9644b9c6668ff9f567984a (patch) | |
| tree | ad999faf594f41896ebbadd32b3511daf1be91e6 /perl.h | |
| parent | f58cd3869828b0993f2ad27e1061f23f4c1959bb (diff) | |
| download | perl-584420f022db57225e9644b9c6668ff9f567984a.tar.gz | |
Remove support for assertions and -A
p4raw-id: //depot/perl@31333
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -4395,10 +4395,6 @@ enum { /* pass one of these to get_vtbl */ #define HINT_FILETEST_ACCESS 0x00400000 /* filetest pragma */ #define HINT_UTF8 0x00800000 /* utf8 pragma */ -/* assertions pragma, stored in $^H{assertions} */ -#define HINT_ASSERTING 0x00000001 -#define HINT_ASSERTIONSSEEN 0x00000002 - /* The following are stored in $^H{sort}, not in PL_hints */ #define HINT_SORT_SORT_BITS 0x000000FF /* allow 256 different ones */ #define HINT_SORT_QUICKSORT 0x00000001 @@ -5099,7 +5095,6 @@ typedef struct am_table_short AMTS; #define PERLDBf_GOTO 0x80 /* Report goto: call DB::goto */ #define PERLDBf_NAMEEVAL 0x100 /* Informative names for evals */ #define PERLDBf_NAMEANON 0x200 /* Informative names for anon subs */ -#define PERLDBf_ASSERTION 0x400 /* Debug assertion subs enter/exit */ #define PERLDB_SUB (PL_perldb && (PL_perldb & PERLDBf_SUB)) #define PERLDB_LINE (PL_perldb && (PL_perldb & PERLDBf_LINE)) |