decrease divider for small human numbers

diff --git a/barcat b/barcat
index db630abb6ba6d92bf0ef0d2043c61e97a840f379..5ac55bab9cfbe5987aa818c2a5ef512644d40e40 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -134,7 +134,7 @@ while ($nr <= $#lines) {
                        $val == $order[-1] ? 31 : # min
                        90;
                $val = sprintf "%3.1f%1s", $val / 1000**$_, $opt{units}->[$_]
-                       for $opt{units} ? int(log($val) / log(1000)) : ();
+                       for $opt{units} ? int(log($val) / log(1000) - ($val < 1)) : ();
                $val = sprintf "%*s", $lenval, $val;
                $val = "\e[${color}m$val\e[0m" if $color;
        }