diff options
| -rw-r--r-- | ext/I18N/Langinfo/Langinfo.xs | 28 |
1 files changed, 26 insertions, 2 deletions
diff --git a/ext/I18N/Langinfo/Langinfo.xs b/ext/I18N/Langinfo/Langinfo.xs index d335eec71e..314e8918b3 100644 --- a/ext/I18N/Langinfo/Langinfo.xs +++ b/ext/I18N/Langinfo/Langinfo.xs @@ -19,8 +19,32 @@ langinfo(code) int code CODE: #ifdef HAS_NL_LANGINFO - char *s = nl_langinfo(code); - RETVAL = newSVpvn(s, strlen(s)); + char *s; + if (code) { /* bold assumption: all valid langinfo codes > 0 */ +#ifdef _MAXSTRMSG + if (code >= _MAXSTRMSG + RETVAL = &PL_sv_undef; + else +#else +# ifdef _NL_NUM_ITEMS + if (code >= _NL_NUM_ITEMS) + RETVAL = &PL_sv_undef; + else +# else +# ifdef _NL_NUM + if (code >= _NL_NUM) + RETVAL = &PL_sv_undef; + else +# endif +# endif +#endif + { + s = nl_langinfo(code); + RETVAL = newSVpvn(s, strlen(s)); + } + } else { + RETVAL = &PL_sv_undef; + } #else croak("nl_langinfo() not implemented on this architecture"); #endif |