From: Karl Williamson <public@khwilliamson.com>
Date: Thu, 16 Dec 2010 15:34:35 +0000 (-0700)
Subject: re.t: Use portable C locale
X-Git-Tag: accepted/trunk/20130322.191538~6432
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c3f2238688d0531d74eca33d2cf56394a5189292;p=platform%2Fupstream%2Fperl.git

re.t: Use portable C locale

The locale en_US.UTF-8 has varying and wrong definitions depending on
manufacturer.  Using the portable C locale works just as well for the
purposes of these tests.
---

diff --git a/t/re/re.t b/t/re/re.t
index 49866bd..f6da280 100644
--- a/t/re/re.t
+++ b/t/re/re.t
@@ -95,9 +95,9 @@ if ('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){
     }
 
     SKIP: {
-        my $current_locale = POSIX::setlocale( &POSIX::LC_CTYPE, 'en_US.UTF-8' );
-        if ( !$current_locale || $current_locale ne 'en_US.UTF-8' ) {
-            skip( 'cannot use locale en_US.UTF-8', 3 );
+        my $current_locale = POSIX::setlocale( &POSIX::LC_CTYPE, 'C' );
+        if ( !$current_locale || $current_locale ne 'C' ) {
+            skip( 'cannot set locale C', 3 );
         }
 
         $check = $text =~ /(?u)\w/;