Integrate:

[ 21618]
Stas spotted a missed s//new_/ for the hash seed renaming games
p4raw-link: @21618 on //depot/perl: bf5919621049e6d5229a5c77b669902ff0888f67

p4raw-id: //depot/maint-5.8/perl@21621
p4raw-integrated: from //depot/perl@21613 'merge in' perl.c (@21514..)

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index c0202c8f65..3a275c8883 100644
--- a/perl.c
+++ b/perl.c
@@ -1074,7 +1074,7 @@ setuid perl scripts securely.\n");
      * If you set PL_hash_seed (and assumedly also PL_hash_seed_set) yourself,
      * it is your responsibility to provide a good random seed!
      * You can also define PERL_HASH_SEED in compile time, see hv.h. */
-    if (!PL_hash_seed_set)
+    if (!PL_new_hash_seed_set)
 	 PL_new_hash_seed = get_hash_seed();
     {
 	 char *s = PerlEnv_getenv("PERL_HASH_SEED_DEBUG");