From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 7 Sep 2019 13:43:10 +0000 (+0200)
Subject: decrease divider for small human numbers
X-Git-Tag: v1.04~17
X-Git-Url: http://git.shiar.nl/barcat.git/commitdiff_plain/13a52d166f90627fdffd7ed362b753bc4bdb4110

decrease divider for small human numbers
---

diff --git a/barcat b/barcat
index db630ab..5ac55ba 100755
--- 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;
 	}