From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 8 Jul 2001 01:34:09 +0000 (+0000)
Subject: Really do the test under the C locale.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=642c2bac5c7334dca0875b93260705d7aed619bd;p=p5sagit%2Fp5-mst-13.2.git

Really do the test under the C locale.

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

diff --git a/ext/I18N/Langinfo/Langinfo.t b/ext/I18N/Langinfo/Langinfo.t
index bb74f36..0495006 100644
--- a/ext/I18N/Langinfo/Langinfo.t
+++ b/ext/I18N/Langinfo/Langinfo.t
@@ -3,16 +3,17 @@
 BEGIN {
     chdir 't' if -d 't';
     require Config; import Config;
-    if ($Config{'extensions'} !~ m!\bI18N/Langinfo\b!) {
+    if ($Config{'extensions'} !~ m!\bI18N/Langinfo\b! &&
+	$Config{'extensions'} !~ m!\bPOSIX\b!) {
 	print "1..0\n";
 	exit 0;
     }
 }
 
-
 use I18N::Langinfo qw(langinfo ABDAY_1 DAY_1 ABMON_1 MON_1 RADIXCHAR);
+use POSIX qw(setlocale LC_ALL);
 
-# use the "C" locale
+setlocale(LC_ALL, "C");
 
 print "1..5\n";
 
@@ -31,5 +32,3 @@ print "ok 4\n";
 print "not " unless langinfo(RADIXCHAR) eq ".";
 print "ok 5\n";
 
-
-