Get PERL_OLD_COPY_ON_WRITE passing all tests, apart from
authorNicholas Clark <nick@ccl4.org>
Wed, 2 May 2007 16:26:24 +0000 (16:26 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 2 May 2007 16:26:24 +0000 (16:26 +0000)
ext/Compress/Raw/Zlib/t/07bufsize.t
which still puzzles me.

p4raw-id: //depot/perl@31120

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;