From 13a52d166f90627fdffd7ed362b753bc4bdb4110 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 7 Sep 2019 15:43:10 +0200
Subject: [PATCH] decrease divider for small human numbers

---
 barcat | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 	}
-- 
2.30.0