... | ... |
@@ -149,15 +149,6 @@ sub cmd { |
149 | 149 |
return @command_all; |
150 | 150 |
} |
151 | 151 |
|
152 |
-sub cmd_rep { |
|
153 |
- my ($self, $user, $project, @cmd) = @_; |
|
154 |
- |
|
155 |
- # Git command |
|
156 |
- my $rep_info = $self->app->rep_info($user, $project); |
|
157 |
- |
|
158 |
- return $self->cmd($rep_info, @cmd); |
|
159 |
-} |
|
160 |
- |
|
161 | 152 |
sub authors { |
162 | 153 |
my ($self, $rep_info, $rev, $file) = @_; |
163 | 154 |
|
... | ... |
@@ -40,9 +40,8 @@ |
40 | 40 |
); |
41 | 41 |
}; |
42 | 42 |
my $cmd = $quote->( |
43 |
- $git->cmd_rep( |
|
44 |
- $user, |
|
45 |
- $project, |
|
43 |
+ $git->cmd( |
|
44 |
+ app->rep_info($user, $project), |
|
46 | 45 |
'archive', |
47 | 46 |
"--format=$format", |
48 | 47 |
"--prefix=$name/", |
... | ... |
@@ -16,7 +16,7 @@ |
16 | 16 |
|
17 | 17 |
my $rep_info = app->rep_info($user, $project); |
18 | 18 |
my $rep_git_dir = $rep_info->{git_dir}; |
19 |
- my @cmd = $git->cmd_rep($user, $project, $service_cmd, '--stateless-rpc', '--advertise-refs', $rep_git_dir); |
|
19 |
+ my @cmd = $git->cmd(app->rep_info($user, $project), $service_cmd, '--stateless-rpc', '--advertise-refs', $rep_git_dir); |
|
20 | 20 |
|
21 | 21 |
my ($cout, $cerr) = (Symbol::gensym, Symbol::gensym); |
22 | 22 |
my $pid = IPC::Open3::open3(my $cin, $cout, $cerr, @cmd ); |
... | ... |
@@ -59,7 +59,7 @@ |
59 | 59 |
# Dumb HTTP |
60 | 60 |
else { |
61 | 61 |
# Update server info |
62 |
- my @cmd = $git->cmd_rep($user, $project, 'update-server-info'); |
|
62 |
+ my @cmd = $git->cmd(app->rep_info($user, $project), 'update-server-info'); |
|
63 | 63 |
open my $fh, '-|', @cmd |
64 | 64 |
or die "Can't open pipe for @cmd:$!"; |
65 | 65 |
close $fh |
... | ... |
@@ -11,7 +11,7 @@ |
11 | 11 |
|
12 | 12 |
my $rep_info = app->rep_info($user, $project); |
13 | 13 |
my $rep_git_dir = $rep_info->{git_dir}; |
14 |
- my @cmd = $git->cmd_rep($user, $project, $service, '--stateless-rpc', $rep_git_dir); |
|
14 |
+ my @cmd = $git->cmd(app->rep_info($user, $project), $service, '--stateless-rpc', $rep_git_dir); |
|
15 | 15 |
|
16 | 16 |
# Command |
17 | 17 |
my ($cout, $cerr) = (Symbol::gensym, Symbol::gensym); |