PERFORCE change 11210 for review

[Jarkko Hietaniemi]

Change 11210 by jhi@alpha on 2001/07/08 01:34:09

        Really do the test under the C locale.

Affected files ...

... //depot/perl/ext/I18N/Langinfo/Langinfo.t#2 edit

Differences ...

==== //depot/perl/ext/I18N/Langinfo/Langinfo.t#2 (text) ====
Index: perl/ext/I18N/Langinfo/Langinfo.t
--- perl/ext/I18N/Langinfo/Langinfo.t.~1~       Sat Jul  7 19:45:06 2001
+++ perl/ext/I18N/Langinfo/Langinfo.t   Sat Jul  7 19:45:06 2001
@@ -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 "not " unless langinfo(RADIXCHAR) eq ".";
 print "ok 5\n";
 
-
-
End of Patch.