Get PERL_OLD_COPY_ON_WRITE passing all tests, apart from

ext/Compress/Raw/Zlib/t/07bufsize.t
which still puzzles me.

p4raw-id: //depot/perl@31120

diff --git a/regcomp.c b/regcomp.c
index 4027bda..6b123c3 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8866,10 +8866,7 @@ Perl_reg_temp_copy (pTHX_ struct regexp *r) {
     }
     RX_MATCH_COPIED_off(ret);
 #ifdef PERL_OLD_COPY_ON_WRITE
-    /* this is broken. */
-    assert(0); 
-    if (ret->saved_copy)
-        ret->saved_copy=NULL;
+    ret->saved_copy = NULL;
 #endif
     ret->mother_re = r; 
     ret->swap = NULL;