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 /miniperlmain.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 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index 286ce9137a..94a6d5b4f0 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -48,6 +48,9 @@ int main(int argc, char **argv, char **env) { int exitstatus; +#ifndef PERL_USE_SAFE_PUTENV + PL_use_safe_putenv = 0; +#endif /* PERL_USE_SAFE_PUTENV */ #ifdef PERL_GLOBAL_STRUCT #define PERLVAR(var,type) /**/ |