summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-12-08 15:13:39 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-12-08 15:13:39 +0000
commit188083017597a2a872494fc4c4e56a5c39b3f02e (patch)
tree2b3605ae61ac8c7c7b734e37dd8d110869aef78b /sv.c
parentb734d6c9a69b651b431318a8a85ae26a06dc580e (diff)
downloadperl-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.c6
1 files changed, 3 insertions, 3 deletions
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 ||