kernel
/
git
mirror of https://git.kernel.org/pub/scm/git/git.git
1
0
Fork 0
Code Releases Activity

Merge branch 'jk/perf-wo-git-dot-pm' 

Test cleanup.

* jk/perf-wo-git-dot-pm:
  t/perf: don't depend on Git.pm
maint
Junio C Hamano 2019-12-10 13:11:44 -08:00
parent 41dac79c2f 528d9e6d01
commit 55c37d12d3
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
t/perf/aggregate.perl
View File

@ -4,7 +4,6 @@ use lib '../../perl/build/lib';
use strict; use strict;
use warnings; use warnings;
use Getopt::Long; use Getopt::Long;
use Git;
use Cwd qw(realpath); use Cwd qw(realpath);


sub get_times { sub get_times {
@ -85,6 +84,11 @@ sub format_size {
return $out; return $out;
} }


sub sane_backticks {
open(my $fh, '-|', @_);
return <$fh>;
}

my (@dirs, %dirnames, %dirabbrevs, %prefixes, @tests, my (@dirs, %dirnames, %dirabbrevs, %prefixes, @tests,
$codespeed, $sortby, $subsection, $reponame); $codespeed, $sortby, $subsection, $reponame);


@ -102,7 +106,8 @@ while (scalar @ARGV) {
my $prefix = ''; my $prefix = '';
last if -f $arg or $arg eq "--"; last if -f $arg or $arg eq "--";
if (! -d $arg) { if (! -d $arg) {
my $rev = Git::command_oneline(qw(rev-parse --verify), $arg); my $rev = sane_backticks(qw(git rev-parse --verify), $arg);
chomp $rev;
$dir = "build/".$rev; $dir = "build/".$rev;
} elsif ($arg eq '.') { } elsif ($arg eq '.') {
$dir = '.'; $dir = '.';