From: Abhijit Menon-Sen <ams@wiw.org>
Date: Sat, 4 Aug 2001 08:54:55 +0000 (+0530)
Subject: Re: [patch] refcount re ops
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3377381085987f5c7f3856145d29b4bd2cec1d77;p=p5sagit%2Fp5-mst-13.2.git

Re: [patch] refcount re ops
Message-ID: <20010804085455.B526@lustre.dyn.wiw.org>

p4raw-id: //depot/perl@11569
---

diff --git a/sv.c b/sv.c
index 1194657..5269aba 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':