diff options
author | Radu Greab <radu@netsoft.ro> | 2001-07-05 01:13:31 +0300 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-05 03:43:28 +0000 |
commit | 55d27857a33136b7f5f1ca74b1417d44e4f51b1c (patch) | |
tree | 542ac155fda0153c559c6e10968f799689161f94 /sv.c | |
parent | cf699fa3e207d56a23be5d1ac021e238471a28f1 (diff) | |
download | perl-55d27857a33136b7f5f1ca74b1417d44e4f51b1c.tar.gz |
(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
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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 || |