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

Merge pt-osc-data-loss-bug-1068562

Browse Source
This commit is contained in:
Daniel Nichter
2012-11-08 16:38:07 -07:00
parent fb345eb3fd 57b3706f1a
commit da50daf0f7
5 changed files with 584 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/Quoter.pm
View File

@@ -93,12 +93,18 @@ sub quote_val {
# <join_quote>
sub split_unquote {
my ( $self, $db_tbl, $default_db ) = @_;
$db_tbl =~ s/`//g;
my ( $db, $tbl ) = split(/[.]/, $db_tbl);
if ( !$tbl ) {
$tbl = $db;
$db = $default_db;
}
for ($db, $tbl) {
next unless $_;
s/\A`//;
s/`\z//;
s/``/`/;
}
return ($db, $tbl);
}