From 8bf206230526c0a7639d6ffe1a763ac4e70153a0 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 2 May 2011 17:51:11 +0100
Subject: [PATCH] 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.
---
 miniperlmain.c | 2 +-
 perlvars.h     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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