diff options
-rw-r--r-- | av.c | 4 | ||||
-rw-r--r-- | gv.h | 2 | ||||
-rw-r--r-- | mg.c | 2 | ||||
-rw-r--r-- | pp.c | 2 | ||||
-rw-r--r-- | pp_hot.c | 2 |
5 files changed, 6 insertions, 6 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)); } @@ -171,7 +171,7 @@ Return the SV from the GV. #define DM_UID 0x003 #define DM_RUID 0x001 #define DM_EUID 0x002 -#define DM_ARRAY 0x004 +#define DM_ARRAY_ISA 0x004 #define DM_GID 0x030 #define DM_RGID 0x010 #define DM_EGID 0x020 @@ -1557,7 +1557,7 @@ Perl_magic_setisa(pTHX_ SV *sv, MAGIC *mg) PERL_UNUSED_ARG(sv); /* Skip _isaelem because _isa will handle it shortly */ - if (PL_delaymagic & DM_ARRAY && mg->mg_type == PERL_MAGIC_isaelem) + if (PL_delaymagic & DM_ARRAY_ISA && mg->mg_type == PERL_MAGIC_isaelem) return 0; return magic_clearisa(NULL, mg); @@ -5349,7 +5349,7 @@ PP(pp_push) sv_setsv(sv, *MARK); av_store(ary, AvFILLp(ary)+1, sv); } - if (PL_delaymagic & DM_ARRAY) + if (PL_delaymagic & DM_ARRAY_ISA) mg_set(MUTABLE_SV(ary)); PL_delaymagic = 0; @@ -1048,7 +1048,7 @@ PP(pp_aassign) } TAINT_NOT; } - if (PL_delaymagic & DM_ARRAY) + if (PL_delaymagic & DM_ARRAY_ISA) SvSETMAGIC(MUTABLE_SV(ary)); break; case SVt_PVHV: { /* normal hash */ |