| |
@@ -0,0 +1,12 @@
|
| |
+ diff -up lib/core/src/perl/RefHash.xxs.orig polymake-4.6/lib/core/src/perl/RefHash.xxs
|
| |
+ --- lib/core/src/perl/RefHash.xxs.orig 2022-06-03 15:22:43.288494151 +0200
|
| |
+ +++ lib/core/src/perl/RefHash.xxs 2022-06-03 15:25:42.957829230 +0200
|
| |
+ @@ -71,7 +71,7 @@ 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
|
| |
+ - HEK_FLAGS(hekp) = HVhek_UNSHARED;
|
| |
+ + HEK_FLAGS(hekp) = HVhek_NOTSHARED;
|
| |
+ sv.sv_any = &xpv;
|
| |
+ sv.sv_refcnt = 1;
|
| |
+ sv.sv_flags = SVt_PVIV | SVf_IVisUV | SVf_POK | SVp_POK | PmFlagsForHashKey;
|
| |