summaryrefslogtreecommitdiff
path: root/embed.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-07-11 00:03:33 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-07-11 00:03:33 +0000
commitbed601927f5ca7f54b544d9e5ce1f77461311b68 (patch)
tree76f5d01619419491feebf3cfa159cb51489543cd /embed.h
parent183c3da10ba46f0626790e1aa75f641397137480 (diff)
downloadperl-bed601927f5ca7f54b544d9e5ce1f77461311b68.tar.gz
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
Diffstat (limited to 'embed.h')
-rw-r--r--embed.h6
1 files changed, 6 insertions, 0 deletions
diff --git a/embed.h b/embed.h
index 2ba996baa7..add142d317 100644
--- a/embed.h
+++ b/embed.h
@@ -1115,6 +1115,9 @@
#define seed Perl_seed
#endif
#ifdef PERL_CORE
+#define get_seed Perl_get_seed
+#endif
+#ifdef PERL_CORE
#define report_evil_fh Perl_report_evil_fh
#endif
#ifdef PERL_CORE
@@ -3603,6 +3606,9 @@
#define seed() Perl_seed(aTHX)
#endif
#ifdef PERL_CORE
+#define get_seed() Perl_get_seed(aTHX)
+#endif
+#ifdef PERL_CORE
#define report_evil_fh(a,b,c) Perl_report_evil_fh(aTHX_ a,b,c)
#endif
#ifdef PERL_CORE