Permalink
Browse files

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.
  • Loading branch information...
1 parent af2f0da commit 8bf206230526c0a7639d6ffe1a763ac4e70153a0 Nicholas Clark committed May 2, 2011
Showing with 2 additions and 2 deletions.
  1. +1 −1 miniperlmain.c
  2. +1 −1 perlvars.h
View
@@ -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 */
View
@@ -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

0 comments on commit 8bf2062

Please sign in to comment.