From: Jarkko Hietaniemi Date: Sat, 1 Dec 2001 20:21:27 +0000 (+0000) Subject: Have a little faith on nl_langinfo() itself. X-Git-Tag: accepted/trunk/20130322.191538~29083 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e1faa3a01366d845f838995ae5732544dbf4ef9a;p=platform%2Fupstream%2Fperl.git Have a little faith on nl_langinfo() itself. p4raw-id: //depot/perl@13413 --- 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");