summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-02-13 14:06:15 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-02-13 14:06:15 +0000
commit67127a85e86d9ef67c9a136224ffce237c7df32b (patch)
tree63bb605c9554f59d0ba5549c1d2e157399c7a65a /util.c
parentf1f802f72d2a5ab6b92210fa96748318d879b276 (diff)
downloadperl-67127a85e86d9ef67c9a136224ffce237c7df32b.tar.gz
environ array wrongly assumed in Perl_init_i18nl10n(),
noticed by Chris Nandor in MacOS Classic. p4raw-id: //depot/perl@8790
Diffstat (limited to 'util.c')
-rw-r--r--util.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/util.c b/util.c
index d603e82c8b..b6a8719cb2 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)