Handle recursive ratio_over options correctly.

This commit is contained in:
Henrik Brix Andersen 2012-07-27 22:56:35 +02:00
parent d68ab84faa
commit 57b134cc9c

View File

@ -858,7 +858,7 @@ sub get_value {
no strict 'refs';
my $value = $self->get($opt_key);
$value = $self->get($Options->{$opt_key}{ratio_over}) * $1/100
$value = $self->get_value($Options->{$opt_key}{ratio_over}) * $1/100
if $Options->{$opt_key}{ratio_over} && $value =~ /^(\d+(?:\.\d+)?)%$/;
return $value;
}