diff --git a/lib/calcms/audio.pm b/lib/calcms/audio.pm index bc06696..3db95a9 100644 --- a/lib/calcms/audio.pm +++ b/lib/calcms/audio.pm @@ -87,6 +87,7 @@ sub formatBitrateMode($) { sub formatLoudness { my $value = shift; my $prefix = shift || ''; + my $round = shift || ''; return '' unless $value; $value = sprintf( "%.1f", $value ); @@ -96,6 +97,7 @@ sub formatLoudness { $class = 'error' if $value > -16.0; $class = 'warn' if $value < -24.0; $class = 'error' if $value < -27.0; + $value = int($value+0.5) if $round; return qq{
$prefix$value dB
}; }