Skip PL_warn_locale use unless compiled in

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 83789d5..40134dd 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -238,7 +238,9 @@ PERLVAR(I, exit_flags,      U8)             /* was exit() unexpected, etc. */
 
 PERLVAR(I, utf8locale, bool)           /* utf8 locale detected */
 PERLVAR(I, in_utf8_CTYPE_locale, bool)
-PERLVAR(I, warn_locale, SV *)
+#ifdef USE_LOCALE_CTYPE
+    PERLVAR(I, warn_locale, SV *)
+#endif
 
 PERLVARA(I, colors,6,  char *)         /* values from PERL_RE_COLORS env var */