From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 1 Oct 2001 14:55:37 +0000 (+0000)
Subject: Make missing the RADIXCHAR a softer, gentler error.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69af93f87d0de73567cf1975c1164aadaef307c4;p=p5sagit%2Fp5-mst-13.2.git

Make missing the RADIXCHAR a softer, gentler error.

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

diff --git a/ext/I18N/Langinfo/Langinfo.t b/ext/I18N/Langinfo/Langinfo.t
index 4a3fa84..4dd7213 100644
--- a/ext/I18N/Langinfo/Langinfo.t
+++ b/ext/I18N/Langinfo/Langinfo.t
@@ -14,6 +14,7 @@ BEGIN {
 
 use I18N::Langinfo qw(langinfo ABDAY_1 DAY_1 ABMON_1 MON_1 RADIXCHAR);
 use POSIX qw(setlocale LC_ALL);
+use Config;
 
 setlocale(LC_ALL, "C");
 
@@ -31,6 +32,18 @@ print "ok 3\n";
 print "not " unless langinfo(MON_1)     eq "January";
 print "ok 4\n";
 
-print "not " unless langinfo(RADIXCHAR) eq ".";
-print "ok 5\n";
+unless (langinfo(RADIXCHAR) eq ".") {
+    print "not ok 5 - RADIXCHAR undefined\n";
+    if ($Config{d_gnulibc} || $Config{cppsymbols} =~ /GLIBC/) {
+	print <<EOM;
+#
+# You are probably using GNU libc. The RADIXCHAR not getting defined
+# by I18N::Langinfo is a known problem in some older versions of the
+# GNU libc.
+#
+EOM
+    }
+} else {
+    print "ok 5\n";
+}