From cb8acf777d2d1ebda0bd15ce197858e6d321af93 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Thu, 19 Jan 2017 20:00:32 +0000 Subject: dgit: repos_server_url(): Break out No functional change. Signed-off-by: Ian Jackson --- dgit | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'dgit') 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 $!; } -- cgit v1.2.3