From: Abhijit Menon-Sen <ams@wiw.org>
Date: Fri, 13 Jul 2001 21:41:09 +0000 (+0530)
Subject: Re: [patch] re_dup
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=78da6883f07d155aeb421dce0d6958c4526de8e6;p=p5sagit%2Fp5-mst-13.2.git

Re: [patch] re_dup
Message-ID: <20010713214109.A3328@lustre.dyn.wiw.org>

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

diff --git a/sv.c b/sv.c
index b47bfa0..09832cf 100644
--- a/sv.c
+++ b/sv.c
@@ -8368,7 +8368,7 @@ Perl_re_dup(pTHX_ REGEXP *r, clone_params *param)
 
     if (r->regstclass) {
 	New(0, ret->regstclass, 1, regnode);
-	Copy(r->regstclass, ret->regstclass, 1, regnode);
+	StructCopy(r->regstclass, ret->regstclass, regnode);
     }
     else
 	ret->regstclass = NULL;