diff options
author | Karl Williamson <khw@cpan.org> | 2018-08-03 13:25:57 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-08-05 05:52:48 -0600 |
commit | 3337f21af2adb68370e3987aabd1fb1bce0d786f (patch) | |
tree | 131daa4380a4fa78f7c1ed44b46a0235b509ff0e /perl.c | |
parent | f523f78b0475f738f029d4996ceb346d3c413975 (diff) | |
download | perl-3337f21af2adb68370e3987aabd1fb1bce0d786f.tar.gz |
perl.c: Use TAINT_get, instead of PL_tainting.
The former is designed to be compilable out.
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2279,7 +2279,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) This could possibly be wasteful if PERL_INTERNAL_RAND_SEED is invalid, but avoids duplicating the logic from perl_construct(). */ - if (PL_tainting && + if (TAINT_get && PerlProc_getuid() == PerlProc_geteuid() && PerlProc_getgid() == PerlProc_getegid()) { Perl_drand48_init_r(&PL_internal_random_state, seed()); |