diff options
author | Michael Schroeder <Michael.Schroeder@informatik.uni-erlangen.de> | 2004-11-11 16:54:43 +0100 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-11-17 10:11:20 +0000 |
commit | 50acdf951a03f778010b5632532ec99bfa7c4f6a (patch) | |
tree | c02916c2de2c738a64bdd1ac0207abd339ab86d1 /perl.c | |
parent | be9a9b1dd000aab30f25ebe003679f9814da62af (diff) | |
download | perl-50acdf951a03f778010b5632532ec99bfa7c4f6a.tar.gz |
SuSE's perl safe_putenf diff
Message-ID: <20041111145443.GA1854@immd4.informatik.uni-erlangen.de>
slightly reworked to make the PL_use_safe_putenv variable fit in
the current framework. This patch turns on the use of safe putenv
for any application that embeds a perl interpreter.
p4raw-id: //depot/perl@23507
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -471,7 +471,7 @@ perl_destruct(pTHXx) */ #ifndef PERL_MICRO #if defined(USE_ENVIRON_ARRAY) && !defined(PERL_USE_SAFE_PUTENV) - if (environ != PL_origenviron + if (environ != PL_origenviron && !PL_use_safe_putenv #ifdef USE_ITHREADS /* only main thread can free environ[0] contents */ && PL_curinterp == aTHX |