Explicit setter for sample_time

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

View File

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