percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-11 21:51:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

Some fixes for ANSI SQL quotes

Browse Source
This commit is contained in:
Baron Schwartz
2012-06-07 14:53:47 -04:00
parent db8f834164
commit 8e9dfeec68
5 changed files with 44 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lib/TableUsage.pm
View File

@@ -870,7 +870,27 @@ sub _explain_query {
. "Message: " . ($warning->{message} || "") . "\n";
}
return $warning->{message};
return $self->ansi_to_legacy($warning->{message});
}
# Translates ANSI quoting into legacy backtick-quoting.
# TODO: use TableParser::ansi_to_legacy instead (this code is copy/paste)
my $ansi_quote_re = qr/" [^"]* (?: "" [^"]* )* (?<=.) "/ismx;
sub ansi_to_legacy {
my ($self, $sql) = @_;
$sql =~ s/($ansi_quote_re)/ansi_quote_replace($1)/ge;
return $sql;
}
# Translates a single string from ANSI quoting into legacy quoting by
# un-doubling embedded double-double quotes, doubling backticks, and replacing
# the delimiters. TODO: this is a copy-paste of TableParser.pm's code
sub ansi_quote_replace {
my ($val) = @_;
$val =~ s/^"|"$//g;
$val =~ s/`/``/g;
$val =~ s/""/"/g;
return "`$val`";
}
sub _get_tables {