From: Hugo van der Sanden <hv@crypt.org>
Date: Fri, 28 Jun 2002 14:29:43 +0000 (+0100)
Subject: (Retracted by #17383)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2d7662f82aa1be8bdd2eb1d41e249110eab6ee84;p=p5sagit%2Fp5-mst-13.2.git

(Retracted by #17383)
Subject: Re: [ID 20020627.002] Regexp causing segmentation fault
Message-Id: <200206281329.g5SDThO10165@crypt.compulink.co.uk>

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

diff --git a/sv.c b/sv.c
index fa629ae..270c58d 100644
--- a/sv.c
+++ b/sv.c
@@ -8612,7 +8612,7 @@ Perl_re_dup(pTHX_ REGEXP *r, CLONE_PARAMS *param)
     Copy(r->offsets, ret->offsets, 2*len+1, U32);
 
     ret->precomp        = SAVEPV(r->precomp);
-    ret->refcnt         = r->refcnt;
+    ret->refcnt         = 1;
     ret->minlen         = r->minlen;
     ret->prelen         = r->prelen;
     ret->nparens        = r->nparens;