From bed601927f5ca7f54b544d9e5ce1f77461311b68 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 11 Jul 2003 00:03:33 +0000 Subject: Chicken out: the hash randomisation is not on by default. We switch over to the explicit mode: in other words, if the $ENV{PERL_HASH_SEED} is on, we randomise. Also, we randomise only if PL_hash_seed_set is FALSE (this means one can use PERL_HASH() before perl_run.) Also, since now PERL_HASH_SEED is okay even under -T, all should be fine. (Ha!) p4raw-id: //depot/perl@20135 --- proto.h | 1 + 1 file changed, 1 insertion(+) (limited to 'proto.h') diff --git a/proto.h b/proto.h index bb91615627..57f7027800 100644 --- a/proto.h +++ b/proto.h @@ -799,6 +799,7 @@ PERL_CALLCONV void Perl_vivify_ref(pTHX_ SV* sv, U32 to_what); PERL_CALLCONV I32 Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags); PERL_CALLCONV U32 Perl_parse_unicode_opts(pTHX_ char **popt); PERL_CALLCONV U32 Perl_seed(pTHX); +PERL_CALLCONV UV Perl_get_seed(pTHX); PERL_CALLCONV void Perl_report_evil_fh(pTHX_ GV *gv, IO *io, I32 op); PERL_CALLCONV void Perl_report_uninit(pTHX); PERL_CALLCONV void Perl_warn(pTHX_ const char* pat, ...) -- cgit v1.2.1