Check PERL_HASH_SEED even when tainted.

p4raw-id: //depot/perl@20134

1 files changed, 1 insertions, 5 deletions

diff --git a/perl.c b/perl.c
index a035a6c0de..173848926f 100644
--- a/perl.c
+++ b/perl.c
@@ -901,11 +901,7 @@ setuid perl scripts securely.\n");
     /* [perl #22371] Algorimic Complexity Attack on Perl 5.6.1, 5.8.0
      * This MUST be done before any hash stores or fetches take place. */
     {
-       bool earlytaint = doing_taint(argc, argv, env);
-       char *s = NULL;
-
-       if (!earlytaint)
-	   s = PerlEnv_getenv("PERL_HASH_SEED");
+       char *s = PerlEnv_getenv("PERL_HASH_SEED");
        if (s)
            while (isSPACE(*s)) s++;
        if (s && isDIGIT(*s))