1 files changed, 10 insertions, 0 deletions
diff --git a/hv.h b/hv.h
index 6062522d46..b8f496c60d 100644
--- a/hv.h
+++ b/hv.h
@@ -471,6 +471,16 @@ C<SV*>.
 				  (flags) | HV_DELETE, NULL, 0)))
 
 #ifdef PERL_CORE
+# define hv_storehek(hv, hek, val) \
+    hv_common((hv), NULL, HEK_KEY(hek), HEK_LEN(hek), HEK_UTF8(hek),	\
+	      HV_FETCH_ISSTORE|HV_FETCH_JUST_SV, (val), HEK_HASH(hek))
+# define hv_fetchhek(hv, hek, lval) \
+    ((SV **)								\
+     hv_common((hv), NULL, HEK_KEY(hek), HEK_LEN(hek), HEK_UTF8(hek),	\
+	       (lval)							\
+		? (HV_FETCH_JUST_SV | HV_FETCH_LVALUE)			\
+		: HV_FETCH_JUST_SV,					\
+	       NULL, HEK_HASH(hek)))
 # define hv_deletehek(hv, hek, flags) \
     hv_common((hv), NULL, HEK_KEY(hek), HEK_LEN(hek), HEK_UTF8(hek), \
 	      (flags)|HV_DELETE, NULL, HEK_HASH(hek))