This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Stas spotted a missed s//new_/ for the hash seed renaming games
authorNicholas Clark <nick@ccl4.org>
Sun, 2 Nov 2003 18:01:21 +0000 (18:01 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 2 Nov 2003 18:01:21 +0000 (18:01 +0000)
p4raw-id: //depot/perl@21618

perl.c

diff --git a/perl.c b/perl.c
index f171845..3860d2d 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -945,7 +945,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");