From 188083017597a2a872494fc4c4e56a5c39b3f02e Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 8 Dec 2001 15:13:39 +0000 Subject: Retract #11156 since Sarathy has found that it breaks code: http://bugs.ActiveState.com/show_bug.cgi?id=18457 http://bugs.ActiveState.com/show_bug.cgi?id=18858 p4raw-id: //depot/perl@13533 --- sv.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'sv.c') diff --git a/sv.c b/sv.c index fcabd8e5c4..2f0875cb8d 100644 --- a/sv.c +++ b/sv.c @@ -4455,9 +4455,9 @@ Perl_sv_magic(pTHX_ register SV *sv, SV *obj, int how, const char *name, I32 nam mg->mg_moremagic = SvMAGIC(sv); SvMAGIC(sv) = mg; - /* Some magic contains a reference loop, where the sv and object refer to - each other. To avoid a reference loop that would prevent such objects - being freed, we look for such loops and if we find one we avoid + /* Some magic sontains a reference loop, where the sv and object refer to + each other. To prevent a avoid 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. */ if (!obj || obj == sv || how == PERL_MAGIC_arylen || -- cgit v1.2.1