diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-24 13:51:15 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-24 13:51:15 +0000 |
| commit | 1f483ca187f535de63d6e6c29dc950a0b0026c4d (patch) | |
| tree | 1b347ff74382dbc05ce70dc919c407e140768513 /perl.c | |
| parent | b56ce070e5e427b18f8ce2ff317a8cae0ca4315a (diff) | |
| download | perl-1f483ca187f535de63d6e6c29dc950a0b0026c4d.tar.gz | |
In the spirit of #15464.
p4raw-id: //depot/perl@15465
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -259,8 +259,8 @@ perl_construct(pTHXx) PL_modglobal = newHV(); /* pointers to per-interpreter module globals */ PL_errors = newSVpvn("",0); sv_setpvn(PERL_DEBUG_PAD(0), "", 0); /* For regex debugging. */ - sv_setpvn(PERL_DEBUG_PAD(1), "", 0); - sv_setpvn(PERL_DEBUG_PAD(2), "", 0); + sv_setpvn(PERL_DEBUG_PAD(1), "", 0); /* ext/re needs these */ + sv_setpvn(PERL_DEBUG_PAD(2), "", 0); /* even without DEBUGGING. */ #ifdef USE_ITHREADS PL_regex_padav = newAV(); av_push(PL_regex_padav,(SV*)newAV()); /* First entry is an array of empty elements */ |