diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-08 15:13:39 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-08 15:13:39 +0000 |
commit | 188083017597a2a872494fc4c4e56a5c39b3f02e (patch) | |
tree | 2b3605ae61ac8c7c7b734e37dd8d110869aef78b /sv.c | |
parent | b734d6c9a69b651b431318a8a85ae26a06dc580e (diff) | |
download | perl-188083017597a2a872494fc4c4e56a5c39b3f02e.tar.gz |
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
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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 || |