about summary refs log tree commit diff
path: root/third_party/git/t/perf/min_time.perl
diff options
context:
space:
mode:
Diffstat (limited to 'third_party/git/t/perf/min_time.perl')
-rwxr-xr-xthird_party/git/t/perf/min_time.perl21
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 c1a2717e07..0000000000
--- 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;