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;
PL_reg_oldsaved = Nullch;
PL_reg_oldsavedlen = 0;
#ifdef PERL_COPY_ON_WRITE
- PL_nrs = NullSv;
+ PL_nrs = Nullsv;
#endif
PL_reg_maxiter = 0;
PL_reg_leftiter = 0;