diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-15 17:30:55 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-15 17:30:55 +0000 |
commit | 758f564b3fb5c63b84ce2ab3dd6edc68d23923b7 (patch) | |
tree | 9bf2cf0100b2d16bb79e6b24bf94fd3fc4121888 /ext/I18N | |
parent | 0c506aaefee7667a453a4ad4e885faf32acff3f5 (diff) | |
download | perl-758f564b3fb5c63b84ce2ab3dd6edc68d23923b7.tar.gz |
The hoops one has to jump through.
p4raw-id: //depot/perl@13703
Diffstat (limited to 'ext/I18N')
-rw-r--r-- | ext/I18N/Langinfo/Langinfo.pm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/ext/I18N/Langinfo/Langinfo.pm b/ext/I18N/Langinfo/Langinfo.pm index ead60a7e11..b052d185d4 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<langinfo(3)> for more information about the available constants. (Often this means having to look directly at the F<langinfo.h> 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. |