summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorMichael Schroeder <Michael.Schroeder@informatik.uni-erlangen.de>2004-11-11 16:54:43 +0100
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2004-11-17 10:11:20 +0000
commit50acdf951a03f778010b5632532ec99bfa7c4f6a (patch)
treec02916c2de2c738a64bdd1ac0207abd339ab86d1 /perl.c
parentbe9a9b1dd000aab30f25ebe003679f9814da62af (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index 1525df222d..03187a38ca 100644
--- a/perl.c
+++ b/perl.c
@@ -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