blob: 4a9d349ccb9a08a6d3c77ff1113a345cec149ade (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
diff -up lib/core/src/perl/RefHash.xxs.orig lib/core/src/perl/RefHash.xxs
--- a/lib/core/src/perl/RefHash.xxs 2022-06-06 10:35:17.689807548 +0200
+++ b/lib/core/src/perl/RefHash.xxs 2022-06-06 10:37:12.935663947 +0200
@@ -71,7 +71,11 @@ SV* tmp_keysv::set(SV* keysv)
Copy(obj.keyp, HEK_KEY(hekp), sizeof(SV*), char);
HEK_LEN(hekp) = sizeof(SV*);
HEK_HASH(hekp) = U32(obj.keyl >> 4); // hash value
+#if PerlVersion < 5360
HEK_FLAGS(hekp) = HVhek_UNSHARED;
+#else
+ HEK_FLAGS(hekp) = HVhek_NOTSHARED;
+#endif
sv.sv_any = &xpv;
sv.sv_refcnt = 1;
sv.sv_flags = SVt_PVIV | SVf_IVisUV | SVf_POK | SVp_POK | PmFlagsForHashKey;
|