Change 20007 by [EMAIL PROTECTED] on 2003/07/05 09:09:44
Allow $ENV{PERL_HASH_SEED_DEBUG} to work even under taint;
since CGI scripts are (should be) run under -T, being able
to show the HASH_SEED in case of problems is good.
The $ENV{PERL_HASH_SEED} is still ignored under taint.
Affected files ...
... //depot/perl/perl.c#502 edit
Differences ...
==== //depot/perl/perl.c#502 (text) ====
Index: perl/perl.c
--- perl/perl.c#501~19979~ Fri Jul 4 01:33:32 2003
+++ perl/perl.c Sat Jul 5 02:09:44 2003
@@ -926,7 +926,7 @@
#endif /* RANDBITS < (UVSIZE * 8) */
}
#endif /* USE_HASH_SEED_EXPLICIT */
- if (!earlytaint && (s = PerlEnv_getenv("PERL_HASH_SEED_DEBUG")))
+ if (s = PerlEnv_getenv("PERL_HASH_SEED_DEBUG"))
PerlIO_printf(Perl_debug_log, "HASH_SEED = %"UVuf"\n",
PL_hash_seed);
}
End of Patch.
