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 (file)
--- 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':