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 <ishig...@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

_______________________________________________
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