Merge branch 'tb/aggregate-ignore-leading-whitespaces'
Test portability update. * tb/aggregate-ignore-leading-whitespaces: t/perf/aggregate.perl: tolerate leading spaces
This commit is contained in:
commit
68ef6c0b1a
@ -17,8 +17,8 @@ sub get_times {
|
||||
my $rt = ((defined $1 ? $1 : 0.0)*60+$2)*60+$3;
|
||||
return ($rt, $4, $5);
|
||||
# size
|
||||
} elsif ($line =~ /^\d+$/) {
|
||||
return $&;
|
||||
} elsif ($line =~ /^\s*(\d+)$/) {
|
||||
return $1;
|
||||
} else {
|
||||
die "bad input line: $line";
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user