Merge branch 'maint-1.8.5' into maint
[git] / t / perf / min_time.perl
1 #!/usr/bin/perl
2
3 my $minrt = 1e100;
4 my $min;
5
6 while (<>) {
7         # [h:]m:s.xx U.xx S.xx
8         /^(?:(\d+):)?(\d+):(\d+(?:\.\d+)?) (\d+(?:\.\d+)?) (\d+(?:\.\d+)?)$/
9                 or die "bad input line: $_";
10         my $rt = ((defined $1 ? $1 : 0.0)*60+$2)*60+$3;
11         if ($rt < $minrt) {
12                 $min = $_;
13                 $minrt = $rt;
14         }
15 }
16
17 if (!defined $min) {
18         die "no input found";
19 }
20
21 print $min;