From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 2 May 2007 16:26:24 +0000 (+0000)
Subject: Get PERL_OLD_COPY_ON_WRITE passing all tests, apart from
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b89b0c6f71c5a46eb35a7e4a981d64eb1ed39c5d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;