percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-20 17:49:56 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merged simplify-pqd

Browse Source
This commit is contained in:
Brian Fraser
2013-01-31 14:52:34 -03:00
parent 3dc0b19f7e 5fd8042e35
commit efc89a6725
155 changed files with 3349 additions and 3899 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/QueryReview.pm
View File

@@ -111,7 +111,7 @@ sub new {
# table.
sub set_history_options {
my ( $self, %args ) = @_;
foreach my $arg ( qw(table dbh tbl_struct col_pat) ) {
foreach my $arg ( qw(table tbl_struct col_pat) ) {
die "I need a $arg argument" unless $args{$arg};
}
@@ -157,7 +157,7 @@ sub set_history_options {
} @cols) . ')';
PTDEBUG && _d($sql);
$self->{history_sth} = $args{dbh}->prepare($sql);
$self->{history_sth} = $self->{dbh}->prepare($sql);
$self->{history_metrics} = \@metrics;
return;