silence warning calculating size of zero values

diff --git a/barcat b/barcat
index 77d35ad739d58459864ed17e8d0f3bc036dfd941..1c9f0278082036c9028e8a7c399cb6ebba1b0449 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -245,7 +245,7 @@ say(
 while ($nr <= $#lines) {
        $nr >= $opt{hidemax} and last if defined $opt{hidemax};
        my $val = $values[$nr];
-       my $rel = length $val && ($val - $minval) / ($maxval - $minval);
+       my $rel = length $val && ($maxval - $minval) && ($val - $minval) / ($maxval - $minval);
        my $color = !length $val || !$opt{palette} ? undef :
                $val == $order[0] ? $opt{palette}->[-1] : # max
                $val == $order[-1] ? $opt{palette}->[0] : # min

diff --git a/t/t1710-zero_value_--_0.out b/t/t1710-zero_value_--_0.out
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..ff95acde3ff2c34ebe8f73648e299567618e7d17 100644 (file)
--- a/t/t1710-zero_value_--_0.out
+++ b/t/t1710-zero_value_--_0.out
@@ -0,0 +1 @@
+0