diff options
| author | Nicholas Clark <nick@ccl4.org> | 2003-02-17 21:07:03 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-02-18 00:51:24 +0000 |
| commit | 9a26048b591176092513e1e0db064d5315c21465 (patch) | |
| tree | 034ec86b05062afb8525a50a5697d52bbecc3101 | |
| parent | 31b49ad407e88940fdaef710e5f6a42665a067d8 (diff) | |
| download | perl-9a26048b591176092513e1e0db064d5315c21465.tar.gz | |
Re: [PATCH] Re: [PATCH] Copy on write for $& and $1...
Message-ID: <20030217210330.A8611@plum.flirble.org>
p4raw-id: //depot/perl@18738
| -rw-r--r-- | sv.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -9323,6 +9323,9 @@ Perl_re_dup(pTHX_ REGEXP *r, CLONE_PARAMS *param) 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; |