diff options
author | Father Chrysostomos <sprout@cpan.org> | 2013-10-26 05:40:10 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-10-26 05:40:10 -0700 |
commit | e17aed30f88453e866224b8226836acc4cbc3824 (patch) | |
tree | efcf36f310f90d5d993f7462f430d03aab1e9918 /gv.c | |
parent | a854082c1ddc5c6bb8d493a0cc4930601215559b (diff) | |
download | perl-e17aed30f88453e866224b8226836acc4cbc3824.tar.gz |
gv:gv_add_by_type: Don’t check @ISA when not vivifying
I added the code (in 986d39eeb4) to magicalise @ISA when vivifying it
via @{*ISA}. But we don’t need to do that every time gv_add_by_type
is called, just when it is autovivifying.
Diffstat (limited to 'gv.c')
-rw-r--r-- | gv.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -82,10 +82,12 @@ Perl_gv_add_by_type(pTHX_ GV *gv, svtype type) } if (!*where) + { *where = newSV_type(type); - if (type == SVt_PVAV && GvNAMELEN(gv) == 3 - && strnEQ(GvNAME(gv), "ISA", 3)) - sv_magic(*where, (SV *)gv, PERL_MAGIC_isa, NULL, 0); + if (type == SVt_PVAV && GvNAMELEN(gv) == 3 + && strnEQ(GvNAME(gv), "ISA", 3)) + sv_magic(*where, (SV *)gv, PERL_MAGIC_isa, NULL, 0); + } return gv; } |