Change 11224 by jhi@alpha on 2001/07/08 23:05:41
Guard the nl_langinfo() with HAS_NL_LANGINFO
as pointed out by Sarathy.
Affected files ...
... //depot/perl/ext/I18N/Langinfo/Langinfo.xs#2 edit
Differences ...
==== //depot/perl/ext/I18N/Langinfo/Langinfo.xs#2 (text) ====
Index: perl/ext/I18N/Langinfo/Langinfo.xs
--- perl/ext/I18N/Langinfo/Langinfo.xs.~1~ Sun Jul 8 17:15:05 2001
+++ perl/ext/I18N/Langinfo/Langinfo.xs Sun Jul 8 17:15:05 2001
@@ -826,7 +826,11 @@
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
End of Patch.
