summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorAbhijit Menon-Sen <ams@wiw.org>2001-08-04 14:24:55 +0530
committerJarkko Hietaniemi <jhi@iki.fi>2001-08-04 14:09:09 +0000
commit3377381085987f5c7f3856145d29b4bd2cec1d77 (patch)
treefffda629619ec5a5d0dcb34add5a7f91041baaab /sv.c
parent9b978d731dbdb96e716e0b0959a0135ca6805247 (diff)
downloadperl-3377381085987f5c7f3856145d29b4bd2cec1d77.tar.gz
Re: [patch] refcount re ops
Message-ID: <20010804085455.B526@lustre.dyn.wiw.org> p4raw-id: //depot/perl@11569
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index 1194657a07..5269abac35 100644
--- a/sv.c
+++ b/sv.c
@@ -8403,7 +8403,8 @@ Perl_re_dup(pTHX_ REGEXP *r, clone_params *param)
ret->regstclass = (regnode*)d->data[i];
break;
case 'o':
- /* XXX: can this really be shared? */
+ /* Compiled op trees are readonly, and can thus be
+ shared without duplication. */
d->data[i] = (void*)OpREFCNT_inc((OP*)r->data->data[i]);
break;
case 'n':