[libdbd-sqlite3-perl] 15/43: not to use Japanese multibyte characters directly
Salvatore Bonaccorso
carnil at debian.org
Tue Nov 15 15:27:40 UTC 2016
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
More information about the Pkg-perl-cvs-commits
mailing list