diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-08 23:05:41 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-08 23:05:41 +0000 |
| commit | 8b26484be7ee9210e0cc1b2dc15582bb13fea333 (patch) | |
| tree | 569473ef86e61b84c9cf2af47f2dc9677c385797 /ext/I18N | |
| parent | d22779f5bc9230e35caedc48714cf84a936fc040 (diff) | |
| download | perl-8b26484be7ee9210e0cc1b2dc15582bb13fea333.tar.gz | |
Guard the nl_langinfo() with HAS_NL_LANGINFO
as pointed out by Sarathy.
p4raw-id: //depot/perl@11224
Diffstat (limited to 'ext/I18N')
| -rw-r--r-- | ext/I18N/Langinfo/Langinfo.xs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ext/I18N/Langinfo/Langinfo.xs b/ext/I18N/Langinfo/Langinfo.xs index 3422eed83c..3dd0738d5e 100644 --- a/ext/I18N/Langinfo/Langinfo.xs +++ b/ext/I18N/Langinfo/Langinfo.xs @@ -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 |