summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-06-26 05:32:02 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-06-26 05:32:02 +0000
commit504f80c1f3625809f472c1ce21089fdae860d9fd (patch)
treecfeaae7da4b08f0f27798122ecbf4f1efba3b8cb /sv.c
parent14180c03bf5269934b197b82e34fd4696ad1053d (diff)
downloadperl-504f80c1f3625809f472c1ce21089fdae860d9fd.tar.gz
Bite the bullet and apply the hash randomisation patch.
[perl #22371] Algorimic Complexity Attack on Perl 5.6.1, 5.8.0 p4raw-id: //depot/perl@19854
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index f001497595..b6d09202b0 100644
--- a/sv.c
+++ b/sv.c
@@ -11269,6 +11269,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
PL_glob_index = proto_perl->Iglob_index;
PL_srand_called = proto_perl->Isrand_called;
+ PL_hash_seed = proto_perl->Ihash_seed;
PL_uudmap['M'] = 0; /* reinits on demand */
PL_bitcount = Nullch; /* reinits on demand */