git.shiar.nl
/
barcat.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0de7066
)
decrease divider for small human numbers
author
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 7 Sep 2019 13:43:10 +0000
(15:43 +0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 7 Sep 2019 18:16:38 +0000
(20:16 +0200)
barcat
patch
|
blob
|
history
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}->[$_]
$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;
}
$val = sprintf "%*s", $lenval, $val;
$val = "\e[${color}m$val\e[0m" if $color;
}