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 (file)
--- 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.