From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 13 Feb 2001 14:06:15 +0000 (+0000)
Subject: environ array wrongly assumed in Perl_init_i18nl10n(),
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=67127a85e86d9ef67c9a136224ffce237c7df32b;p=p5sagit%2Fp5-mst-13.2.git

environ array wrongly assumed in Perl_init_i18nl10n(),
noticed by Chris Nandor in MacOS Classic.

p4raw-id: //depot/perl@8790
---

diff --git a/util.c b/util.c
index d603e82..b6a8719 100644
--- a/util.c
+++ b/util.c
@@ -665,7 +665,7 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
      *   -1 = fallback to C locale failed
      */
 
-#ifdef USE_LOCALE
+#if defined(USE_LOCALE) && defined(USE_ENVIRON_ARRAY)
 
 #ifdef USE_LOCALE_CTYPE
     char *curctype   = NULL;
@@ -891,7 +891,7 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
 #endif /* USE_LOCALE_NUMERIC */
     }
 
-#endif /* USE_LOCALE */
+#endif /* USE_LOCALE && USE_ENVIRON_ARRAY */
 
 #ifdef USE_LOCALE_CTYPE
     if (curctype != NULL)