diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-08-03 11:17:41 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-04 14:08:19 +0000 |
| commit | 9b978d731dbdb96e716e0b0959a0135ca6805247 (patch) | |
| tree | aed45875cb072e5ad6c4f5716a4708674f9014db /sv.c | |
| parent | 35061a7e2b3411cdebe03b5b73528a18647b44f9 (diff) | |
| download | perl-9b978d731dbdb96e716e0b0959a0135ca6805247.tar.gz | |
[patch] refcount re ops
Message-ID: <Pine.LNX.4.21.0108031814240.23972-100000@mako.covalent.net>
p4raw-id: //depot/perl@11568
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -8403,6 +8403,9 @@ Perl_re_dup(pTHX_ REGEXP *r, clone_params *param) ret->regstclass = (regnode*)d->data[i]; break; case 'o': + /* XXX: can this really be shared? */ + d->data[i] = (void*)OpREFCNT_inc((OP*)r->data->data[i]); + break; case 'n': d->data[i] = r->data->data[i]; break; |