This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: Make sure variable is always defined
authorKarl Williamson <khw@cpan.org>
Thu, 11 Jan 2018 00:10:09 +0000 (17:10 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 31 Jan 2018 05:12:46 +0000 (22:12 -0700)
A future commit assumes this variable is there even on non-DEBUGGING
builds.  #define it to 0 for those.

locale.c

index ed49160..d50a42d 100644 (file)
--- a/locale.c
+++ b/locale.c
 /* If the environment says to, we can output debugging information during
  * initialization.  This is done before option parsing, and before any thread
  * creation, so can be a file-level static */
-#ifdef DEBUGGING
-#  ifdef PERL_GLOBAL_STRUCT
-  /* no global syms allowed */
-#    define debug_initialization 0
-#    define DEBUG_INITIALIZATION_set(v)
-#  else
+#if ! defined(DEBUGGING) || defined(PERL_GLOBAL_STRUCT)
+#  define debug_initialization 0
+#  define DEBUG_INITIALIZATION_set(v)
+#else
 static bool debug_initialization = FALSE;
-#    define DEBUG_INITIALIZATION_set(v) (debug_initialization = v)
-#  endif
+#  define DEBUG_INITIALIZATION_set(v) (debug_initialization = v)
 #endif
 
 /* strlen() of a literal string constant.  XXX We might want this more general,