percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-19 00:43:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

pqd: Merge --review-history into --review, added --review-table & --history-table

Browse Source
This commit is contained in:
Brian Fraser fraserb@gmail.com
2013-01-21 12:40:46 -03:00
parent 06ce6e012e
commit 9dd124038b
5 changed files with 254 additions and 190 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;