From 55d27857a33136b7f5f1ca74b1417d44e4f51b1c Mon Sep 17 00:00:00 2001 From: Radu Greab Date: Thu, 5 Jul 2001 01:13:31 +0300 Subject: (retracted by #13533) Subject: [PATCH perl@11099]Re: [ID 20010704.003] Taint mode breaks global match Message-ID: <15171.27355.895094.128142@ix.netsoft.ro> p4raw-id: //depot/perl@11156 --- sv.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'sv.c') diff --git a/sv.c b/sv.c index d14810cc33..a7e1bda293 100644 --- a/sv.c +++ b/sv.c @@ -4415,9 +4415,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 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 + /* 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 incrementing the object refcount. */ if (!obj || obj == sv || how == PERL_MAGIC_arylen || -- cgit v1.2.1