14 lines
577 B
Diff
14 lines
577 B
Diff
|
From https://github.com/Perl/perl5/issues/18617#issuecomment-822056978 by Leont
|
||
|
|
|
||
|
|
--- a/src/modules/perl/modperl_perl.c
|
||
|
|
+++ a/src/modules/perl/modperl_perl.c
|
||
|
|
@@ -268,7 +268,7 @@
|
||
|
|
#ifdef MP_NEED_HASH_SEED_FIXUP
|
||
|
|
if (MP_init_hash_seed_set) {
|
||
|
|
#if MP_PERL_VERSION_AT_LEAST(5, 17, 6)
|
||
|
|
- memcpy(&PL_hash_seed, &MP_init_hash_seed,
|
||
|
|
+ memcpy(PL_hash_seed, &MP_init_hash_seed,
|
||
|
|
sizeof(PL_hash_seed) > sizeof(MP_init_hash_seed) ?
|
||
|
|
sizeof(MP_init_hash_seed) : sizeof(PL_hash_seed));
|
||
|
|
PL_hash_seed_set = MP_init_hash_seed_set;
|