audio.pm: fix loudness error

2020-07-07 22:55:10 +02:00
parent 41bd4be39a
commit c27bbdc27e
2 changed files with 8 additions and 6 deletions
--- a/lib/calcms/audio.pm
+++ b/lib/calcms/audio.pm
@@ -33,17 +33,17 @@ sub formatDuration($$$;$) {
        $class = "warn";
        $title = sprintf(
            qq{file is too long! It should be %d minutes, but is %d},
-            ($eventDuration+0.5) / 60,
-            ($audioDuration+0.5) / 60
+            ($eventDuration+30) / 60,
+            ($audioDuration+30) / 60
        );
    }

-    if ( $delta < 99.98 ) {
+    if ( $delta < 99.97 ) {
        $class = "error";
        $title = sprintf(
            qq{file is too short! should be %d minutes, but is %d},
-            ($eventDuration+0.5) / 60,
-            ($audioDuration+0.5) / 60
+            ($eventDuration+30) / 60,
+            ($audioDuration+30) / 60
        );

    }