(perl #127663) create a separate random source for internal use

and use it to initialize hash randomization and to innoculate against
quadratic behaviour in pp_sort

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index a3f8ac367d..8046013992 100644
--- a/perl.c
+++ b/perl.c
@@ -261,6 +261,8 @@ perl_construct(pTHXx)
 
     init_constants();
 
+    Perl_drand48_init_r(&PL_internal_random_state, seed());
+
     SvREADONLY_on(&PL_sv_placeholder);
     SvREFCNT(&PL_sv_placeholder) = SvREFCNT_IMMORTAL;