$opt{units} = [split //, ' kMGTPEZYyzafpn'.($opt{ascii} ? 'u' : 'μ').'m']
if $opt{'human-readable'};
$opt{anchor} //= qr/\A/;
-$opt{'value-length'} = 6 if $opt{units};
+$opt{'value-length'} = 4 if $opt{units};
$opt{'value-length'} = 1 if $opt{unmodified};
$opt{'signal-stat'} //= exists $SIG{INFO} ? 'INFO' : 'QUIT';
$opt{markers} //= '=avg >31.73v <68.27v +50v |0';
$opt{'sum-format'} = sub { sprintf '%.8g', $_[0] };
$opt{'calc-format'} = sub { sprintf '%*.*f', 0, 2, $_[0] };
$opt{'value-format'} = $opt{sexagesimal} ? sub {
- my $s = $_[0] + .5;
- sprintf('%d:%02d:%02d', $s/3600, $s/60%60, $s%60);
+ my $s = abs($_[0]) + .5;
+ sprintf('%s%d:%02d:%02d', $_[0] < 0 && '-', $s/3600, $s/60%60, $s%60);
} : $opt{units} && sub {
my $unit = (
log(abs $_[0] || 1) / log(10)
print $indicator if defined $indicator;
if (length $val) {
- $val = $opt{'value-format'} ? $opt{'value-format'}->($val) :
- sprintf "%*s", $lenval, $val;
+ $val = sprintf("%*s", $lenval,
+ $opt{'value-format'} ? $opt{'value-format'}->($val) : $val
+ );
color($color) for $val;
}
my $line = $lines[$nr] =~ s/\n/$val/r;