From 758f564b3fb5c63b84ce2ab3dd6edc68d23923b7 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 15 Dec 2001 17:30:55 +0000 Subject: [PATCH] The hoops one has to jump through. p4raw-id: //depot/perl@13703 --- ext/I18N/Langinfo/Langinfo.pm | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/ext/I18N/Langinfo/Langinfo.pm b/ext/I18N/Langinfo/Langinfo.pm index ead60a7..b052d18 100644 --- a/ext/I18N/Langinfo/Langinfo.pm +++ b/ext/I18N/Langinfo/Langinfo.pm @@ -165,7 +165,8 @@ meridiem time formats, for the character code set being used (such as "ISO8859-1", "cp850", "koi8-r", "sjis", "utf8", etc.), for the currency string, for the -radix character (yes, this is redundant with POSIX::localeconv()) +radix character used between the integer and the fractional part +of decimal numbers (yes, this is redundant with POSIX::localeconv()) YESSTR YESEXPR NOSTR NOEXPR @@ -179,6 +180,17 @@ See your L for more information about the available constants. (Often this means having to look directly at the F C header file.) +Note that unfortunately none of the above constants are guaranteed +to be available on a particular platform. To be on the safe side +you can wrap the import in an eval like this: + + eval { + require I18N::Langinfo; + I18N::Langinfo->import(qw(langinfo CODESET)); + $codeset = langinfo(CODESET()); # note the () + }; + if (!$@) { ... failed ... } + =head2 EXPORT Nothing is exported by default. -- 2.7.4