Skip to content

Commit 68ef6c0

Browse files
committed
Merge branch 'tb/aggregate-ignore-leading-whitespaces'
Test portability update. * tb/aggregate-ignore-leading-whitespaces: t/perf/aggregate.perl: tolerate leading spaces
2 parents 252caf8 + 76f3b69 commit 68ef6c0

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

t/perf/aggregate.perl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -17,8 +17,8 @@ sub get_times {
1717
my $rt = ((defined $1 ? $1 : 0.0)*60+$2)*60+$3;
1818
return ($rt, $4, $5);
1919
# size
20-
} elsif ($line =~ /^\d+$/) {
21-
return $&;
20+
} elsif ($line =~ /^\s*(\d+)$/) {
21+
return $1;
2222
} else {
2323
die "bad input line: $line";
2424
}

0 commit comments

Comments
 (0)