mirror of
https://github.com/git/git
synced 2024-08-27 11:39:22 +00:00
t/perf/aggregate.perl: tolerate leading spaces
When using `test_size` with `wc -c`, users on certain platforms can run into issues when `wc` emits leading space characters in its output, which confuses get_times. Callers could switch to use test_file_size instead of `wc -c` (the former never prints leading space characters, so will always work with test_size regardless of platform), but this is an easy enough spot to miss that we should teach get_times to be more tolerant of the input it accepts. Teach get_times to do just that by stripping any leading space characters. Signed-off-by: Taylor Blau <me@ttaylorr.com> Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
parent
225bc32a98
commit
76f3b69896
|
@ -17,8 +17,8 @@ sub get_times {
|
||||||
my $rt = ((defined $1 ? $1 : 0.0)*60+$2)*60+$3;
|
my $rt = ((defined $1 ? $1 : 0.0)*60+$2)*60+$3;
|
||||||
return ($rt, $4, $5);
|
return ($rt, $4, $5);
|
||||||
# size
|
# size
|
||||||
} elsif ($line =~ /^\d+$/) {
|
} elsif ($line =~ /^\s*(\d+)$/) {
|
||||||
return $&;
|
return $1;
|
||||||
} else {
|
} else {
|
||||||
die "bad input line: $line";
|
die "bad input line: $line";
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue