diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-12-02 20:43:58 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-12-02 20:43:58 +0000 |
| commit | f9bddea7d2a0d824366014c8ee6ba57e7dedd8c3 (patch) | |
| tree | f9e666c4aed8d895b750b520cdb64b64962ea9dc /perl.h | |
| parent | 99d3381e871dbd1d94b47516b4475d85b3935ac6 (diff) | |
| download | perl-f9bddea7d2a0d824366014c8ee6ba57e7dedd8c3.tar.gz | |
Implement PERLDBf_SAVESRC_INVALID, which saves source lines for string
evals that fail to compile.
p4raw-id: //depot/perl@34985
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -5347,9 +5347,7 @@ typedef struct am_table_short AMTS; #define PERLDBf_NAMEANON 0x200 /* Informative names for anon subs */ #define PERLDBf_SAVESRC 0x400 /* Save source lines into @{"_<$filename"} */ #define PERLDBf_SAVESRC_NOSUBS 0x800 /* Including evals that generate no subrouties */ -#if 0 /* Not yet working. */ #define PERLDBf_SAVESRC_INVALID 0x1000 /* Save source that did not compile */ -#endif #define PERLDB_SUB (PL_perldb && (PL_perldb & PERLDBf_SUB)) #define PERLDB_LINE (PL_perldb && (PL_perldb & PERLDBf_LINE)) @@ -5363,9 +5361,7 @@ typedef struct am_table_short AMTS; #define PERLDB_NAMEANON (PL_perldb && (PL_perldb & PERLDBf_NAMEANON)) #define PERLDB_SAVESRC (PL_perldb && (PL_perldb & PERLDBf_SAVESRC)) #define PERLDB_SAVESRC_NOSUBS (PL_perldb && (PL_perldb & PERLDBf_SAVESRC_NOSUBS)) -#if 0 /* Not yet working. */ #define PERLDB_SAVESRC_INVALID (PL_perldb && (PL_perldb & PERLDBf_SAVESRC_INVALID)) -#endif #ifdef USE_LOCALE_NUMERIC |