From: Michael G. Schwern <schwern@pobox.com>
Date: Sun, 24 Mar 2002 02:27:25 +0000 (-0500)
Subject: Re: [ID 20020323.002] recently-introduced regex segfault
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b56ce070e5e427b18f8ce2ff317a8cae0ca4315a;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20020323.002] recently-introduced regex segfault
Message-ID: <20020324072725.GA3554@blackrider>

p4raw-id: //depot/perl@15464
---

diff --git a/perl.c b/perl.c
index c8a6370..0779570 100644
--- a/perl.c
+++ b/perl.c
@@ -258,11 +258,9 @@ perl_construct(pTHXx)
     PL_fdpid = newAV();			/* for remembering popen pids by fd */
     PL_modglobal = newHV();		/* pointers to per-interpreter module globals */
     PL_errors = newSVpvn("",0);
-#ifdef DEBUGGING
     sv_setpvn(PERL_DEBUG_PAD(0), "", 0);	/* For regex debugging. */
     sv_setpvn(PERL_DEBUG_PAD(1), "", 0);
     sv_setpvn(PERL_DEBUG_PAD(2), "", 0);
-#endif
 #ifdef USE_ITHREADS
     PL_regex_padav = newAV();
     av_push(PL_regex_padav,(SV*)newAV());    /* First entry is an array of empty elements */