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

Several fixes. --save-samples and --help should work now.

Browse Source
This commit is contained in:
Brian Fraser
2012-01-10 10:47:50 -03:00
parent 93271379d8
commit b4289010b1
10 changed files with 226 additions and 124 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/DiskstatsGroupByDisk.pm
View File

@@ -47,7 +47,7 @@ sub group_by {
# last sample.
sub group_by_disk {
my ($self, %args) = @_;
my ($header_callback, $rest_callback) = $args{ qw( header_callback rest_callback ) };
my ($header_callback, $rows_callback) = $args{ qw( header_callback rows_callback ) };
$self->clear_state() unless $self->interactive();
@@ -74,7 +74,7 @@ sub group_by_disk {
}
$self->{_print_header} = undef;
},
rest_callback => $args{rest_callback},
rows_callback => $args{rows_callback},
);
$self->{_iterations} = -1;
@@ -103,7 +103,7 @@ sub group_by_disk {
$self->print_deltas(
header_callback => $args{header_callback},
rest_callback => $args{rest_callback},
rows_callback => $args{rows_callback},
);
$self->clear_state();