From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 24 Mar 2002 13:51:15 +0000 (+0000)
Subject: In the spirit of #15464.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1f483ca187f535de63d6e6c29dc950a0b0026c4d;p=p5sagit%2Fp5-mst-13.2.git

In the spirit of #15464.

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

diff --git a/perl.c b/perl.c
index 0779570..f5a272d 100644
--- a/perl.c
+++ b/perl.c
@@ -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 */
diff --git a/sv.c b/sv.c
index cd3b6e3..ef61d1b 100644
--- a/sv.c
+++ b/sv.c
@@ -10008,11 +10008,9 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 #endif
     PL_encoding		= sv_dup(proto_perl->Iencoding, param);
 
-#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
+    sv_setpvn(PERL_DEBUG_PAD(1), "", 0);	/* ext/re needs these */
+    sv_setpvn(PERL_DEBUG_PAD(2), "", 0);	/* even without DEBUGGING. */
 
     /* Clone the regex array */
     PL_regex_padav = newAV();