This is an automated email from the git hooks/post-receive script.

carnil pushed a commit to branch master
in repository libdbd-sqlite3-perl.

commit 8a50806e1780c7f43e1063119f05f72af4387bde
Author: Kenichi Ishigaki <ishig...@cpan.org>
Date:   Sat Feb 20 10:33:14 2016 +0900

    try Encode for older perls
---
 t/62_regexp_multibyte_char_class.t | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/t/62_regexp_multibyte_char_class.t 
b/t/62_regexp_multibyte_char_class.t
index 49eeff0..8c4b685 100644
--- a/t/62_regexp_multibyte_char_class.t
+++ b/t/62_regexp_multibyte_char_class.t
@@ -12,6 +12,9 @@ BEGIN {
        if ($] < 5.008005) {
                plan skip_all => 'Unicode is not supported before 5.8.5';
        }
+    if (!eval "require Encode; 1") {
+               plan skip_all => 'requires Encode for this test';
+    }
 }
 use Test::NoWarnings;
 
@@ -34,8 +37,8 @@ foreach my $call_func (@CALL_FUNCS) {
     my @vals = @words;
     my $re = $regex;
     if ($use_unicode) {
-      utf8::decode($_) foreach @vals;
-      utf8::decode($re);
+      @vals = map {Encode::decode_utf8($_)} @vals;
+      $re = Encode::decode_utf8($re);
     }
 
     $dbh->do( 'CREATE TEMP TABLE regexp_test ( txt )' );

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libdbd-sqlite3-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to