perl-5-33-7.patch


1
2
3
4
5
6
7
8
9
10
11

--- src/modules/perl/modperl_perl.c 2021/04/20 13:48:02 1889013
+++ src/modules/perl/modperl_perl.c 2021/04/20 13:55:29 1889014
@@ -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;