#define STORE_SCALAR(pv, len) STORE_PV_LEN(pv, len, SX_SCALAR, SX_LSCALAR)
/*
- * Store undef in arrays and hashes without recursing through store().
+ * Store &PL_sv_undef in arrays without recursing through store().
*/
-#define STORE_UNDEF() \
+#define STORE_SV_UNDEF() \
STMT_START { \
cxt->tagnum++; \
- PUTMARK(SX_UNDEF); \
+ PUTMARK(SX_SV_UNDEF); \
} STMT_END
/*
sav = av_fetch(av, i, 0);
if (!sav) {
TRACEME(("(#%d) undef item", i));
- STORE_UNDEF();
+ STORE_SV_UNDEF();
continue;
}
TRACEME(("(#%d) item", i));
= (((hash_flags & SHV_RESTRICTED)
&& SvREADONLY(val))
? SHV_K_LOCKED : 0);
-#ifdef PL_sv_placeholder
if (val == &PL_sv_placeholder)
-#else
- if (val == &PL_sv_undef)
-#endif
flags |= SHV_K_PLACEHOLDER;
keyval = SvPV(key, keylen_tmp);
= (((hash_flags & SHV_RESTRICTED)
&& SvREADONLY(val))
? SHV_K_LOCKED : 0);
-#ifdef PL_sv_placeholder
if (val == &PL_sv_placeholder)
-#else
- if (val == &PL_sv_undef)
-#endif
flags |= SHV_K_PLACEHOLDER;
hek = HeKEY_hek(he);