From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 19 Nov 2001 14:28:57 +0000 (+0000)
Subject: Retract #13082 until a better solution is found:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1aa74e471b67abac401c88c9c63d49ddcc53d9d1;p=p5sagit%2Fp5-mst-13.2.git

Retract #13082 until a better solution is found:
statics break ithreads.

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

diff --git a/regexec.c b/regexec.c
index c97b600..8c3ff2e 100644
--- a/regexec.c
+++ b/regexec.c
@@ -390,9 +390,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
     char *check_at = Nullch;		/* check substr found at this pos */
 #ifdef DEBUGGING
     char *i_strpos = strpos;
-    static SV *dsv;
-    if (!dsv)
-        dsv = newSVpvn("", 0);
+    SV *dsv = sv_2mortal(newSVpvn("", 0));
 #endif
 
     DEBUG_r({
@@ -1467,9 +1465,7 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char *
     SV* oreplsv = GvSV(PL_replgv);
     bool do_utf8 = DO_UTF8(sv);
 #ifdef DEBUGGING
-    static SV *dsv;
-    if (!dsv)
-        dsv = newSVpvn("", 0);
+    SV *dsv = sv_2mortal(newSVpvn("", 0));
 #endif
 
     PL_regcc = 0;
@@ -2054,15 +2050,9 @@ S_regmatch(pTHX_ regnode *prog)
 #endif
     register bool do_utf8 = PL_reg_match_utf8;
 #ifdef DEBUGGING
-    static SV *dsv0;
-    static SV *dsv1;
-    static SV *dsv2;
-    if (!dsv0)
-        dsv0 = newSVpvn("", 0);
-    if (!dsv1)
-        dsv1 = newSVpvn("", 0);
-    if (!dsv2)
-        dsv2 = newSVpvn("", 0);
+    SV *dsv0 = sv_2mortal(newSVpvn("", 0));
+    SV *dsv1 = sv_2mortal(newSVpvn("", 0));
+    SV *dsv2 = sv_2mortal(newSVpvn("", 0));
 #endif
 
 #ifdef DEBUGGING