summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--av.c4
-rw-r--r--gv.h2
-rw-r--r--mg.c2
-rw-r--r--pp.c2
-rw-r--r--pp_hot.c2
5 files changed, 6 insertions, 6 deletions
diff --git a/av.c b/av.c
index 219870c1a9..6e45b95d3b 100644
--- a/av.c
+++ b/av.c
@@ -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));
}
diff --git a/gv.h b/gv.h
index 7e412e56e8..4286491640 100644
--- a/gv.h
+++ b/gv.h
@@ -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
diff --git a/mg.c b/mg.c
index 7c7c03ea30..24561a2a49 100644
--- a/mg.c
+++ b/mg.c
@@ -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);
diff --git a/pp.c b/pp.c
index 2649c7ef3b..4c985813de 100644
--- a/pp.c
+++ b/pp.c
@@ -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;
diff --git a/pp_hot.c b/pp_hot.c
index 0607b76724..1a7c13f221 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -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 */