diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-11 00:05:20 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-11 00:05:20 +0000 |
| commit | af32e254fffe9b19e7c0abd053e5e226a8ee3749 (patch) | |
| tree | dab90c0ba4197fb8bc37af63fb0b35149b7159a2 /embed.h | |
| parent | 0ee91d56d8bbb30b110f2a225cec0174065ba172 (diff) | |
| download | perl-af32e254fffe9b19e7c0abd053e5e226a8ee3749.tar.gz | |
Integrate:
[ 20134]
Check PERL_HASH_SEED even when tainted.
[ 20135]
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-link: @20135 on //depot/perl: bed601927f5ca7f54b544d9e5ce1f77461311b68
p4raw-link: @20134 on //depot/perl: 183c3da10ba46f0626790e1aa75f641397137480
p4raw-id: //depot/maint-5.8/perl@20136
p4raw-integrated: from //depot/perl@20133 'ignore' pod/perldiag.pod
(@20034..) 'merge in' pod/perlrun.pod (@19929..) proto.h
(@20081..) util.c (@20084..) intrpvar.h (@20114..) embed.fnc
embed.h (@20116..) perl.h perlapi.h (@20117..) embedvar.h
(@20125..) perl.c (@20129..)
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -1135,6 +1135,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 @@ -3646,6 +3649,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 |