diff options
| author | David Mitchell <davem@iabyn.com> | 2010-06-04 21:25:07 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-06-04 21:25:07 +0100 |
| commit | 354b0578ec63c058cd73f018f484808b22cc8631 (patch) | |
| tree | 730a71d90c8278ba5eba0256b6c06d690b4956c9 /av.c | |
| parent | 3a19377ba2315fce9354aa3f06bafbbbab740f1b (diff) | |
| download | perl-354b0578ec63c058cd73f018f484808b22cc8631.tar.gz | |
rename DM_ARRAY flag to DM_ARRAY_ISA
This better represents its current role as specifically delaying magic on
@ISA as opposed to a general array magic delay mechanism.
Diffstat (limited to 'av.c')
| -rw-r--r-- | av.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -365,7 +365,7 @@ Perl_av_store(pTHX_ register AV *av, I32 key, SV *val) sv_magic(val, MUTABLE_SV(av), toLOWER(mg->mg_type), 0, key); } if (PL_delaymagic && mg->mg_type == PERL_MAGIC_isa) - PL_delaymagic |= DM_ARRAY; + PL_delaymagic |= DM_ARRAY_ISA; else mg_set(MUTABLE_SV(av)); } @@ -446,7 +446,7 @@ Perl_av_clear(pTHX_ register AV *av) if (SvRMAGICAL(av)) { const MAGIC* const mg = SvMAGIC(av); if (PL_delaymagic && mg && mg->mg_type == PERL_MAGIC_isa) - PL_delaymagic |= DM_ARRAY; + PL_delaymagic |= DM_ARRAY_ISA; else mg_clear(MUTABLE_SV(av)); } |