diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-01-07 18:38:35 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-08 12:43:26 -0800 |
commit | 4806b7ebf30d3ffe5c6af8f2c3b9f3e779979024 (patch) | |
tree | 65fa95c98e4b448212b60ba444a30cfe6d405629 /av.c | |
parent | c94b42ea5841e1ad13f8a690f05308e25164ef27 (diff) | |
download | perl-4806b7ebf30d3ffe5c6af8f2c3b9f3e779979024.tar.gz |
Simplify magic logic in av.c:av_store
Diffstat (limited to 'av.c')
-rw-r--r-- | av.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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); } |