... | ... |
@@ -189,17 +189,21 @@ sub cmd_work_dir { |
189 | 189 |
} |
190 | 190 |
|
191 | 191 |
sub authors { |
192 |
- my ($self, $user, $project, $rev, $file) = @_; |
|
192 |
+ my ($self, %opt) = @_; |
|
193 |
+ |
|
194 |
+ my $rev = $opt{rev}; |
|
195 |
+ my $file = $opt{file}; |
|
193 | 196 |
|
194 | 197 |
# Authors |
195 |
- my @cmd = $self->cmd_rep( |
|
196 |
- $user, |
|
197 |
- $project, |
|
198 |
- 'log', |
|
199 |
- '--format=%an', |
|
200 |
- $rev, |
|
201 |
- '--', |
|
202 |
- $file |
|
198 |
+ my @cmd = $self->cmd( |
|
199 |
+ %opt, |
|
200 |
+ command => [ |
|
201 |
+ 'log', |
|
202 |
+ '--format=%an', |
|
203 |
+ $rev, |
|
204 |
+ '--', |
|
205 |
+ $file |
|
206 |
+ ] |
|
203 | 207 |
); |
204 | 208 |
open my $fh, "-|", @cmd |
205 | 209 |
or croak 500, "Open git-cat-file failed"; |
... | ... |
@@ -15,7 +15,7 @@ |
15 | 15 |
my $commit = $git->last_change_commit($user, $project, $rev, $file); |
16 | 16 |
|
17 | 17 |
# Authors |
18 |
- my $authors = $git->authors($user, $project, $rev, $file); |
|
18 |
+ my $authors = $git->authors(%{$self->app->rep_info($user, $project)}, rev => $rev, file => $file); |
|
19 | 19 |
|
20 | 20 |
# File size |
21 | 21 |
my $file_size = $git->blob_size($user, $project, $rev, $file); |
... | ... |
@@ -22,7 +22,7 @@ |
22 | 22 |
)->value; |
23 | 23 |
|
24 | 24 |
# Authors |
25 |
- my $authors = $git->authors($user, $project, $rev, $file); |
|
25 |
+ my $authors = $git->authors(%{$self->app->rep_info($user, $project)}, rev => $rev, file => $file); |
|
26 | 26 |
|
27 | 27 |
# File size |
28 | 28 |
my $file_size = $git->blob_size($user, $project, $rev, $file); |