From e1faa3a01366d845f838995ae5732544dbf4ef9a Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 1 Dec 2001 20:21:27 +0000 Subject: [PATCH] Have a little faith on nl_langinfo() itself. p4raw-id: //depot/perl@13413 --- ext/I18N/Langinfo/Langinfo.xs | 32 +++++++------------------------- 1 file changed, 7 insertions(+), 25 deletions(-) diff --git a/ext/I18N/Langinfo/Langinfo.xs b/ext/I18N/Langinfo/Langinfo.xs index 3a97daf..f1a0a17 100644 --- a/ext/I18N/Langinfo/Langinfo.xs +++ b/ext/I18N/Langinfo/Langinfo.xs @@ -19,31 +19,13 @@ langinfo(code) int code CODE: #ifdef HAS_NL_LANGINFO - char *s; - if (code > 0) { /* 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; + { + char *s; + + if ((s = nl_langinfo(code))) + RETVAL = newSVpvn(s, strlen(s)); + else + RETVAL = &PL_sv_undef; } #else croak("nl_langinfo() not implemented on this architecture"); -- 2.7.4