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.

diff --git a/miniperlmain.c b/miniperlmain.c
index 401af10..260369e 100644 (file)
--- 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 8ee418f..e82f03a 100644 (file)
--- 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