diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-20 00:39:02 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-20 00:39:02 +0000 |
| commit | ce333219556f6d529f7e259feeb5cc99020a19a7 (patch) | |
| tree | 2360cad6b95170ea8fdca4ae3d42d1b8e817ab83 /perl.c | |
| parent | 86989e5ddfebcf92232ac079b053bdae48a24c3d (diff) | |
| download | perl-ce333219556f6d529f7e259feeb5cc99020a19a7.tar.gz | |
Create a per-interpeter debug scratchpad container
and use that for the regexec debugging.
p4raw-id: //depot/perl@13110
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -273,6 +273,12 @@ perl_construct(pTHXx) New(31337, PL_reentrant_buffer->tmbuff,1, struct tm); #endif +#ifdef DEBUGGING + sv_setpvn(PERL_DEBUG_PAD(0), "", 0); + sv_setpvn(PERL_DEBUG_PAD(1), "", 0); + sv_setpvn(PERL_DEBUG_PAD(2), "", 0); +#endif + /* Note that strtab is a rather special HV. Assumptions are made about not iterating on it, and not adding tie magic to it. It is properly deallocated in perl_destruct() */ |