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

Explicit setter for sample_time

Browse Source
This commit is contained in:
Brian Fraser
2012-01-10 13:52:43 -03:00
parent 187d921069
commit 79bdf3f1d3
2 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/Diskstats.pm
View File

@@ -133,11 +133,15 @@ sub set_filter_zeroed_rows {
} }
sub sample_time { sub sample_time {
my ($self) = @_;
return $self->{sample_time};
}
sub set_sample_time {
my ($self, $new_val) = @_; my ($self, $new_val) = @_;
if (defined($new_val)) { if (defined($new_val)) {
$self->{sample_time} = $new_val; $self->{sample_time} = $new_val;
} }
return $self->{sample_time};
} }
sub interactive { sub interactive {

5
lib/DiskstatsMenu.pm
View File

@@ -386,8 +386,9 @@ sub get_new_value_for {
die "Invalid timeout: $new_interval" die "Invalid timeout: $new_interval"
unless looks_like_number($new_interval); unless looks_like_number($new_interval);
if ( $args{options}->{current_group_by_obj}->can($looking_for) ) { if ( my $setter = $args{options}->{current_group_by_obj}->can("set_$looking_for") )
$args{options}->{current_group_by_obj}->$looking_for($new_interval); {
$args{options}->{current_group_by_obj}->$setter($new_interval);
} }
$args{options}->{OptionParser}->set($looking_for_o, $new_interval); $args{options}->{OptionParser}->set($looking_for_o, $new_interval);
return $new_interval; return $new_interval;