From 4806b7ebf30d3ffe5c6af8f2c3b9f3e779979024 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sat, 7 Jan 2012 18:38:35 -0800 Subject: [PATCH] Simplify magic logic in av.c:av_store --- av.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/av.c b/av.c index 01b565f..1671f16 100644 --- a/av.c +++ b/av.c @@ -365,8 +365,7 @@ Perl_av_store(pTHX_ register AV *av, I32 key, SV *val) const MAGIC *mg = SvMAGIC(av); bool set = TRUE; for (; mg; mg = mg->mg_moremagic) { - const int eletype = toLOWER(mg->mg_type); - if (eletype == mg->mg_type) continue; + if (!isUPPER(mg->mg_type)) continue; if (val != &PL_sv_undef) { sv_magic(val, MUTABLE_SV(av), toLOWER(mg->mg_type), 0, key); } -- 2.7.4