From: Stas Bekman Date: Sun, 26 Dec 2004 19:02:06 +0000 (-0500) Subject: [patch sv.c] comment fix X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=05f95b083db953aaf57c49ad87a248c669be1bcd;p=p5sagit%2Fp5-mst-13.2.git [patch sv.c] comment fix Message-ID: <41CF50FE.5070307@stason.org> Date: Sun, 26 Dec 2004 19:02:06 -0500 p4raw-id: //depot/perl@23683 --- diff --git a/sv.c b/sv.c index cfdfea3..c0f828c 100644 --- a/sv.c +++ b/sv.c @@ -5341,10 +5341,10 @@ Perl_sv_magicext(pTHX_ SV* sv, SV* obj, int how, MGVTBL *vtable, mg->mg_moremagic = SvMAGIC(sv); SvMAGIC(sv) = mg; - /* Some magic sontains a reference loop, where the sv and object refer to - each other. To prevent a reference loop that would prevent such - objects being freed, we look for such loops and if we find one we - avoid incrementing the object refcount. + /* Sometimes a magic contains a reference loop, where the sv and + object refer to each other. To prevent a reference loop that + would prevent such objects being freed, we look for such loops + and if we find one we avoid incrementing the object refcount. Note we cannot do this to avoid self-tie loops as intervening RV must have its REFCNT incremented to keep it in existence.