From b89b0c6f71c5a46eb35a7e4a981d64eb1ed39c5d Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 2 May 2007 16:26:24 +0000
Subject: [PATCH 1/1] 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
---
 regcomp.c | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

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