Guard the nl_langinfo() with HAS_NL_LANGINFO
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 8 Jul 2001 23:05:41 +0000 (23:05 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 8 Jul 2001 23:05:41 +0000 (23:05 +0000)
as pointed out by Sarathy.

p4raw-id: //depot/perl@11224

ext/I18N/Langinfo/Langinfo.xs

index 3422eed..3dd0738 100644 (file)
@@ -826,7 +826,11 @@ SV*
 langinfo(code)
        int     code
   CODE:
+#ifdef HAS_NL_LANGINFO
        char *s = nl_langinfo(code);
        RETVAL = newSVpvn(s, strlen(s));
+#else
+       croak("nl_langinfo() not implemented on this architecture");
+#endif
   OUTPUT:
        RETVAL