From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 15 Dec 2001 17:30:55 +0000 (+0000)
Subject: The hoops one has to jump through.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=758f564b3fb5c63b84ce2ab3dd6edc68d23923b7;p=p5sagit%2Fp5-mst-13.2.git

The hoops one has to jump through.

p4raw-id: //depot/perl@13703
---

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<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.