percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2026-05-05 01:00:35 +08:00
Code Issues Packages Projects Releases Wiki Activity

Update modules & cut the VP and Mo dependency from several tools

Browse Source
This commit is contained in:
Brian Fraser
2012-07-19 13:22:45 -03:00
parent dfc271929c
commit 81d541ec05
16 changed files with 36 additions and 2722 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/pt-slave-restart
+2 -2
View File
@@ -1721,7 +1721,7 @@ sub BUILDARGS {
my $dbh = $_[0];
local $dbh->{FetchHashKeyName} = 'NAME_lc';
my $query = eval {
$dbh->selectall_arrayref(q<SHOW VARIABLES LIKE 'version%'>, { Slice => {} })
$dbh->selectall_arrayref(q/SHOW VARIABLES LIKE 'version%'/, { Slice => {} })
};
if ( $query ) {
$query = { map { $_->{variable_name} => $_->{value} } @$query };
@@ -1729,7 +1729,7 @@ sub BUILDARGS {
$args{flavor} = delete $query->{version_comment}
if $query->{version_comment};
}
elsif ( eval { ($query) = $dbh->selectrow_array('SELECT VERSION()') } ) {
elsif ( eval { ($query) = $dbh->selectrow_array(q/SELECT VERSION()/) } ) {
@args{@methods} = $self->_split_version($query);
}
else {