Merge branch 'jk/perf-wo-git-dot-pm'
Test cleanup. * jk/perf-wo-git-dot-pm: t/perf: don't depend on Git.pm
This commit is contained in:
commit
55c37d12d3
@ -4,7 +4,6 @@ use lib '../../perl/build/lib';
|
||||
use strict;
|
||||
use warnings;
|
||||
use Getopt::Long;
|
||||
use Git;
|
||||
use Cwd qw(realpath);
|
||||
|
||||
sub get_times {
|
||||
@ -85,6 +84,11 @@ sub format_size {
|
||||
return $out;
|
||||
}
|
||||
|
||||
sub sane_backticks {
|
||||
open(my $fh, '-|', @_);
|
||||
return <$fh>;
|
||||
}
|
||||
|
||||
my (@dirs, %dirnames, %dirabbrevs, %prefixes, @tests,
|
||||
$codespeed, $sortby, $subsection, $reponame);
|
||||
|
||||
@ -102,7 +106,8 @@ while (scalar @ARGV) {
|
||||
my $prefix = '';
|
||||
last if -f $arg or $arg eq "--";
|
||||
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;
|
||||
} elsif ($arg eq '.') {
|
||||
$dir = '.';
|
||||
|
Loading…
Reference in New Issue
Block a user