diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-12-02 16:20:01 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-12-02 16:20:01 +0000 |
| commit | 83fca67e98dfae0d928a42dd87ba57ec05eeb359 (patch) | |
| tree | 1ca64a2b2ab1b7cbf602074efab7a52fba0b7dd1 /perl.h | |
| parent | 925cfbb8b123624a89955b99570bfeaf8242cbf5 (diff) | |
| download | perl-83fca67e98dfae0d928a42dd87ba57ec05eeb359.tar.gz | |
Followup to change 34979. Tests are good, m'kay. Particularly when they
show you that something you thought worked doesn't.
Sadly it's not possible to trivially make it work, so for now they're
todo_skip().
p4raw-id: //depot/perl@34981
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -5347,7 +5347,9 @@ 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)) @@ -5361,7 +5363,9 @@ 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 |