summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2017-01-19 20:00:32 +0000
committerIan Jackson <ijackson@chiark.greenend.org.uk>2017-01-19 20:00:32 +0000
commitcb8acf777d2d1ebda0bd15ce197858e6d321af93 (patch)
tree83a3d01859279fd4e9d26bc5545b0632b7f2389f
parent1c192c416b9cad1fa6dc7c6113e754f6064a64ce (diff)
dgit: repos_server_url(): Break out
No functional change. Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-rwxr-xr-xdgit15
1 files changed, 9 insertions, 6 deletions
diff --git a/dgit b/dgit
index b508ae6..3ff4904 100755
--- a/dgit
+++ b/dgit
@@ -6313,12 +6313,17 @@ sub cmd_archive_api_query {
exec @cmd or fail "exec curl: $!\n";
}
+sub repos_server_url () {
+ $package = '_dgit-repos-server';
+ local $access_forpush = 0;
+ my $url = access_giturl();
+}
+
sub cmd_clone_dgit_repos_server {
badusage "need destination argument" unless @ARGV==1;
my ($destdir) = @ARGV;
- $package = '_dgit-repos-server';
- local $access_forpush = 0;
- my @cmd = (@git, qw(clone), access_giturl(), $destdir);
+ my $url = repos_server_url();
+ my @cmd = (@git, qw(clone), $url, $destdir);
debugcmd ">",@cmd;
exec @cmd or fail "exec git clone: $!\n";
}
@@ -6326,9 +6331,7 @@ sub cmd_clone_dgit_repos_server {
sub cmd_print_dgit_repos_server_source_url {
badusage "no arguments allowed to dgit print-dgit-repos-server-source-url"
if @ARGV;
- $package = '_dgit-repos-server';
- local $access_forpush = 0;
- my $url = access_giturl();
+ my $url = repos_server_url();
print $url, "\n" or die $!;
}