[libdbd-sqlite3-perl] 16/43: try Encode for older perls

[Salvatore Bonaccorso]

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 <ishigaki at 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