diff options
author | Karl Williamson <public@khwilliamson.com> | 2010-12-16 08:34:35 -0700 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2010-12-18 10:36:08 +1100 |
commit | c3f2238688d0531d74eca33d2cf56394a5189292 (patch) | |
tree | da712a2bc28f29c7d7f0ce192c4d9d4282503d6c /t/re | |
parent | f6bb1928f1b14c2ef5bd122d489c1df236daedf6 (diff) | |
download | perl-c3f2238688d0531d74eca33d2cf56394a5189292.tar.gz |
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.
Diffstat (limited to 't/re')
-rw-r--r-- | t/re/re.t | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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/; |