extend units from quecto to Quetta

[barcat.git] / barcat

diff --git a/barcat b/barcat
index c3c0dfd86faf8d56c773ca67a47a2062ab48dcb3..6fd5b5aacff5684e4027d60a75471094c757e178 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -115,7 +115,7 @@ $opt{width} ||= $ENV{COLUMNS} || qx(tput cols) || 80 unless $opt{spark};
 $opt{color} //= $ENV{NO_COLOR} ? 0 : -t *STDOUT;  # enable on tty
 $opt{'graph-format'} //= '-';
 $opt{trim}   *= $opt{width} / 100 if $opt{trimpct};
-$opt{units}   = [split //, ' kMGTPEZYyzafpn'.($opt{ascii} ? 'u' : 'μ').'m']
+$opt{units}   = [split //, ' kMGTPEZYRQqryzafpn'.($opt{ascii} ? 'u' : 'μ').'m']
        if $opt{'human-readable'};
 $opt{anchor} //= qr/\A/;
 $opt{'value-length'} = 4 if $opt{units};