In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/c3f2238688d0531d74eca33d2cf56394a5189292?hp=bc6e9114608594d13b642d1fabbb914619905672>
- Log -----------------------------------------------------------------
commit c3f2238688d0531d74eca33d2cf56394a5189292
Author: Karl Williamson <pub...@khwilliamson.com>
Date: Thu Dec 16 08:34:35 2010 -0700
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.
M t/re/re.t
commit f6bb1928f1b14c2ef5bd122d489c1df236daedf6
Author: Karl Williamson <pub...@khwilliamson.com>
Date: Wed Dec 15 22:33:07 2010 -0700
re.t: Avoid encoding issues by using hex chars
re.t is getting encoded as utf8 in places, which confuses things. So
use a hex notation to enter a non-ASCII char
M t/re/re.t
-----------------------------------------------------------------------
Summary of changes:
t/re/re.t | 8 ++++----
1 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/t/re/re.t b/t/re/re.t
index 5ed4fa8..f6da280 100644
--- a/t/re/re.t
+++ b/t/re/re.t
@@ -69,7 +69,7 @@ if ('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){
{
# tests for new regexp flags
- my $text = 'ä';
+ my $text = "\xE4";
my $check;
{
@@ -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/;
--
Perl5 Master Repository
