From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 18 Mar 2002 20:18:25 +0000 (+0000)
Subject: For DEBUGGING threaded builds.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a4c6fe390894386eeb2fdd5dfec0acaeed13c9b;p=p5sagit%2Fp5-mst-13.2.git

For DEBUGGING threaded builds.

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

diff --git a/sv.c b/sv.c
index d0759d1..ac40900 100644
--- a/sv.c
+++ b/sv.c
@@ -9988,6 +9988,12 @@ 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
+
     /* Clone the regex array */
     PL_regex_padav = newAV();
     {