Change 13413: Have a little faith on nl_langinfo() itself.

[Jarkko Hietaniemi]

Change 13413 by jhi@alpha on 2001/12/01 20:21:27

        Have a little faith on nl_langinfo() itself.

Affected files ...

.... //depot/perl/ext/I18N/Langinfo/Langinfo.xs#7 edit

Differences ...

==== //depot/perl/ext/I18N/Langinfo/Langinfo.xs#7 (text) ====
Index: perl/ext/I18N/Langinfo/Langinfo.xs
--- perl/ext/I18N/Langinfo/Langinfo.xs.~1~      Sat Dec  1 13:30:05 2001
+++ perl/ext/I18N/Langinfo/Langinfo.xs  Sat Dec  1 13:30:05 2001
@@ -19,31 +19,13 @@
        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");
End of Patch.