diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-05-02 17:51:11 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-06-12 16:15:22 +0200 |
commit | 8bf206230526c0a7639d6ffe1a763ac4e70153a0 (patch) | |
tree | 10cd981a9f4512590acae96315636b6cff82c8c9 | |
parent | af2f0da9b8621f5cc241f5664bcecd0fbd8865b2 (diff) | |
download | perl-8bf206230526c0a7639d6ffe1a763ac4e70153a0.tar.gz |
Change PL_use_safe_putenv from int to bool.
It is only ever checked for truth/falsehood, and all assignments to it (in core
and on CPAN) are either 0 or 1.
-rw-r--r-- | miniperlmain.c | 2 | ||||
-rw-r--r-- | perlvars.h | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index 401af10a2f..260369ee5c 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -78,7 +78,7 @@ main(int argc, char **argv, char **env) PERL_UNUSED_ARG(env); #endif #ifndef PERL_USE_SAFE_PUTENV - PL_use_safe_putenv = 0; + PL_use_safe_putenv = FALSE; #endif /* PERL_USE_SAFE_PUTENV */ /* if user wants control of gprof profiling off by default */ diff --git a/perlvars.h b/perlvars.h index 8ee418f5e2..e82f03a5db 100644 --- a/perlvars.h +++ b/perlvars.h @@ -68,7 +68,7 @@ PERLVARI(Gcsighandlerp, Sighandler_t, Perl_csighandler) /* Pointer to C-level si #endif #ifndef PERL_USE_SAFE_PUTENV -PERLVARI(Guse_safe_putenv, int, 1) +PERLVARI(Guse_safe_putenv, bool, TRUE) #endif #ifdef USE_PERLIO |