percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-01 18:25:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixes for DSN parser to use UTF8

Browse Source
This commit is contained in:
Carlos Salguero
2018-01-28 14:46:51 -03:00
parent f3132d3cee
commit d38a584271
7 changed files with 4132 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/TableChunker.pm
View File

@@ -44,6 +44,7 @@
package TableChunker;
use strict;
use utf8;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
@@ -591,7 +592,7 @@ sub _chunk_char {
$dbh->do($sql);
my $col_def = $args{tbl_struct}->{defs}->{$chunk_col};
$sql = "CREATE TEMPORARY TABLE $tmp_db_tbl ($col_def) "
. "ENGINE=MEMORY";
. "ENGINE=MEMORY DEFAULT CHARSET = utf8";
PTDEBUG && _d($dbh, $sql);
$dbh->do($sql);
@@ -601,7 +602,8 @@ sub _chunk_char {
PTDEBUG && _d($dbh, $sql);
my $ins_char_sth = $dbh->prepare($sql); # avoid quoting issues
for my $char_code ( $min_col_ord..$max_col_ord ) {
$ins_char_sth->execute($char_code);
# Ignore errors on invalid chars for UTF8
eval { $ins_char_sth->execute($char_code) };
}
# Select from the char-to-number map all characters between the