summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorMichael G. Schwern <schwern@pobox.com>2002-03-23 21:27:25 -0500
committerJarkko Hietaniemi <jhi@iki.fi>2002-03-24 13:49:02 +0000
commitb56ce070e5e427b18f8ce2ff317a8cae0ca4315a (patch)
tree1b3550a58e62ac7f38997e41caf819aff415a006 /perl.c
parenta5c4264de13407eac04e9c7aa1d513fc2e7a6640 (diff)
downloadperl-b56ce070e5e427b18f8ce2ff317a8cae0ca4315a.tar.gz
Re: [ID 20020323.002] recently-introduced regex segfault
Message-ID: <20020324072725.GA3554@blackrider> p4raw-id: //depot/perl@15464
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/perl.c b/perl.c
index c8a63709b0..07795703aa 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 */