1 files changed, 3 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index 98d70a48c2..73fef98fed 100644
--- a/sv.c
+++ b/sv.c
@@ -9323,6 +9323,9 @@ Perl_re_dup(pTHX_ REGEXP *r, CLONE_PARAMS *param)
 	ret->subbeg  = SAVEPV(r->subbeg);
     else
 	ret->subbeg = Nullch;
+#ifdef PERL_COPY_ON_WRITE
+    ret->saved_copy = Nullsv;
+#endif
 
     ptr_table_store(PL_ptr_table, r, ret);
     return ret;