[libdbd-sqlite3-perl] 15/43: not to use Japanese multibyte characters directly

[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 95bd2006741e260df1942397108aaf5ecae8f7b1
Author: Kenichi Ishigaki <ishigaki at cpan.org>
Date:   Sat Feb 20 10:21:36 2016 +0900

    not to use Japanese multibyte characters directly
---
 t/62_regexp_multibyte_char_class.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/62_regexp_multibyte_char_class.t b/t/62_regexp_multibyte_char_class.t
index 5ed5fc9..49eeff0 100644
--- a/t/62_regexp_multibyte_char_class.t
+++ b/t/62_regexp_multibyte_char_class.t
@@ -17,9 +17,9 @@ use Test::NoWarnings;
 
 # special case for multibyte (non-ASCII) character class,
 # which only works correctly under the unicode mode
-my @words = qw{ テスト テント };
-my $regex = 'テ[スン]ト';
+my @words = ("\x{e3}\x{83}\x{86}\x{e3}\x{82}\x{b9}\x{e3}\x{83}\x{88}", "\x{e3}\x{83}\x{86}\x{e3}\x{83}\x{b3}\x{e3}\x{83}\x{88}"); # テスト テント
 
+my $regex = "\x{e3}\x{83}\x{86}[\x{e3}\x{82}\x{b9}\x{e3}\x{83}\x{b3}]\x{e3}\x{83}\x{88}"; # テ[スン]ト
 
 plan tests => 2 * 2 * @CALL_FUNCS + 1;
 

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