setlocale_failure = TRUE;
}
# endif /* USE_LOCALE_MESSAGES */
+# ifdef USE_LOCALE_MONETARY
+ if (! my_setlocale(LC_MONETARY,
+ (!done && (lang || PerlEnv_getenv("LC_MONETARY")))
+ ? setlocale_init : NULL))
+ {
+ setlocale_failure = TRUE;
+ }
+# endif /* USE_LOCALE_MONETARY */
}
# endif /* LC_ALL */
if (! (my_setlocale(LC_MESSAGES, trial_locale)))
setlocale_failure = TRUE;
#endif /* USE_LOCALE_MESSAGES */
+#ifdef USE_LOCALE_MONETARY
+ if (! (my_setlocale(LC_MONETARY, trial_locale)))
+ setlocale_failure = TRUE;
+#endif /* USE_LOCALE_MONETARY */
+
if (! setlocale_failure) { /* Success */
break;
}