perf/aggregate: add display_dir()
This new helper function will be reused in a subsequent commit. Signed-off-by: Christian Couder <chriscool@tuxfamily.org> Signed-off-by: Junio C Hamano <gitster@pobox.com>
Christian Couder committed
Mar 26, 2018 at 09:24 UTC
c94b6ac50f59e49cd080c76a07ea2734798da37d
1 file changed
+7
-4
t/perf/aggregate.perl
+7
-4
@@ -147,6 +147,11 @@ sub have_slash {
147
return 0;
148
}
149
150
+sub display_dir {
151
+ my ($d) = @_;
152
+ return exists $dirabbrevs{$d} ? $dirabbrevs{$d} : $dirnames{$d};
153
+}
154
+
155
sub print_default_results {
156
my %descrs;
157
my $descrlen = 4; # "Test"
@@ -168,8 +173,7 @@ sub print_default_results {
173
my %times;
174
my @colwidth = ((0)x@dirs);
175
for my $i (0..$#dirs) {
171
- my $d = $dirs[$i];
172
- my $w = length (exists $dirabbrevs{$d} ? $dirabbrevs{$d} : $dirnames{$d});
176
+ my $w = length display_dir($dirs[$i]);
177
$colwidth[$i] = $w if $w > $colwidth[$i];
178
}
179
for my $t (@subtests) {
@@ -188,8 +192,7 @@ sub print_default_results {
192
193
printf "%-${descrlen}s", "Test";
194
for my $i (0..$#dirs) {
191
- my $d = $dirs[$i];
192
- printf " %-$colwidth[$i]s", (exists $dirabbrevs{$d} ? $dirabbrevs{$d} : $dirnames{$d});
195
+ printf " %-$colwidth[$i]s", display_dir($dirs[$i]);
196
}
197
print "\n";
198
print "-"x$totalwidth, "\n";