summaryrefslogtreecommitdiff
path: root/ext/I18N
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-12-15 17:30:55 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-12-15 17:30:55 +0000
commit758f564b3fb5c63b84ce2ab3dd6edc68d23923b7 (patch)
tree9bf2cf0100b2d16bb79e6b24bf94fd3fc4121888 /ext/I18N
parent0c506aaefee7667a453a4ad4e885faf32acff3f5 (diff)
downloadperl-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.pm14
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.