[patch] re_dup

Message-ID: <Pine.LNX.4.21.0107130848530.28844-100000@mako.covalent.net>

p4raw-id: //depot/perl@11360

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 7a23cc8c03..b47bfa0703 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);
-	ret->regstclass->flags = r->regstclass->flags;
+	Copy(r->regstclass, ret->regstclass, 1, regnode);
     }
     else
 	ret->regstclass = NULL;