From: Yves Orton <demerphq@gmail.com>
Date: Tue, 5 Dec 2006 22:53:48 +0000 (+0100)
Subject: Re: [PATCH] Further tweaks to make it easier to create regexp engine plug ins.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c945c1810ac7d1d6f3bbb2bac095910a49e5b98a;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] Further tweaks to make it easier to create regexp engine plug ins.
Message-ID: <9b18b3110612051353k7745792byabfdf98e18eb48c9@mail.gmail.com>

Fixes a minor bug in change 29468.

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

diff --git a/regcomp.c b/regcomp.c
index 1611eb4..e58c242 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -8707,7 +8707,7 @@ Perl_re_dup(pTHX_ const regexp *r, CLONE_PARAMS *param)
     Newx(ret->endp, npar, I32);
     Copy(r->endp, ret->endp, npar, I32);
 
-    if (ret->substrs) {
+    if (r->substrs) {
         Newx(ret->substrs, 1, struct reg_substr_data);
         for (s = ret->substrs->data, i = 0; i < 3; i++, s++) {
             s->min_offset = r->substrs->data[i].min_offset;