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

Pushed the lib/Percona/Toolkit.pm version, and added extra tests to t/lib/Percona/Toolkit.t

Browse Source
This commit is contained in:
Brian Fraser
2012-11-13 12:10:25 -03:00
parent 79a3ab3e0f
commit c811d60ae1
21 changed files with 208 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bin/pt-fk-error-logger
View File

@@ -35,7 +35,7 @@ BEGIN {
# ###########################################################################
{
package Percona::Toolkit;
our $VERSION = '2.1.5';
our $VERSION = '2.1.6';
1;
}
@@ -1111,12 +1111,18 @@ sub quote_val {
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/``/`/g;
}
return ($db, $tbl);
}