diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-11 00:03:33 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-11 00:03:33 +0000 |
| commit | bed601927f5ca7f54b544d9e5ce1f77461311b68 (patch) | |
| tree | 76f5d01619419491feebf3cfa159cb51489543cd /embedvar.h | |
| parent | 183c3da10ba46f0626790e1aa75f641397137480 (diff) | |
| download | perl-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 'embedvar.h')
| -rw-r--r-- | embedvar.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/embedvar.h b/embedvar.h index f990f9f7c5..98d8b21665 100644 --- a/embedvar.h +++ b/embedvar.h @@ -255,6 +255,7 @@ #define PL_glob_index (vTHX->Iglob_index) #define PL_globalstash (vTHX->Iglobalstash) #define PL_hash_seed (vTHX->Ihash_seed) +#define PL_hash_seed_set (vTHX->Ihash_seed_set) #define PL_he_arenaroot (vTHX->Ihe_arenaroot) #define PL_he_root (vTHX->Ihe_root) #define PL_hintgv (vTHX->Ihintgv) @@ -558,6 +559,7 @@ #define PL_Iglob_index PL_glob_index #define PL_Iglobalstash PL_globalstash #define PL_Ihash_seed PL_hash_seed +#define PL_Ihash_seed_set PL_hash_seed_set #define PL_Ihe_arenaroot PL_he_arenaroot #define PL_Ihe_root PL_he_root #define PL_Ihintgv PL_hintgv |