diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-05-24 20:23:53 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-05-24 20:23:53 +0000 |
| commit | 8df990a80edc96eccc56917e48f11674102e8285 (patch) | |
| tree | 579b4d37254812f06fa4c165a84b8060fe2d2d61 | |
| parent | 199f3245d0efbd4bc138ab358c5f5889c79d7083 (diff) | |
| download | perl-8df990a80edc96eccc56917e48f11674102e8285.tar.gz | |
Initialising the hash seed needs to be early in case anything
calcualtes HASHes during dup()ing.
p4raw-id: //depot/perl@24570
| -rw-r--r-- | sv.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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 */ |