diff options
Diffstat (limited to 'third_party/git/t/perf/min_time.perl')
-rwxr-xr-x | third_party/git/t/perf/min_time.perl | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/third_party/git/t/perf/min_time.perl b/third_party/git/t/perf/min_time.perl deleted file mode 100755 index c1a2717e0772..000000000000 --- a/third_party/git/t/perf/min_time.perl +++ /dev/null @@ -1,21 +0,0 @@ -#!/usr/bin/perl - -my $minrt = 1e100; -my $min; - -while (<>) { - # [h:]m:s.xx U.xx S.xx - /^(?:(\d+):)?(\d+):(\d+(?:\.\d+)?) (\d+(?:\.\d+)?) (\d+(?:\.\d+)?)$/ - or die "bad input line: $_"; - my $rt = ((defined $1 ? $1 : 0.0)*60+$2)*60+$3; - if ($rt < $minrt) { - $min = $_; - $minrt = $rt; - } -} - -if (!defined $min) { - die "no input found"; -} - -print $min; |