From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 24 May 2005 20:23:53 +0000 (+0000)
Subject: Initialising the hash seed needs to be early in case anything
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8df990a80edc96eccc56917e48f11674102e8285;p=p5sagit%2Fp5-mst-13.2.git

Initialising the hash seed needs to be early in case anything
calcualtes HASHes during dup()ing.

p4raw-id: //depot/perl@24570
---

diff --git a/sv.c b/sv.c
index b3e3d94..3e87962 100644
--- a/sv.c
+++ b/sv.c
@@ -11655,6 +11655,9 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 
     PL_debug		= proto_perl->Idebug;
 
+    PL_hash_seed	= proto_perl->Ihash_seed;
+    PL_rehash_seed	= proto_perl->Irehash_seed;
+
 #ifdef USE_REENTRANT_API
     /* XXX: things like -Dm will segfault here in perlio, but doing
      *  PERL_SET_CONTEXT(proto_perl);
@@ -12095,8 +12098,6 @@ 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_rehash_seed	= proto_perl->Irehash_seed;
     PL_uudmap['M']	= 0;		/* reinits on demand */
     PL_bitcount		= Nullch;	/* reinits on demand */