chiark / gitweb /
Infra: dgit-ssh-dispatch: Break out serve_up (nfc)
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 20 Jun 2015 15:08:46 +0000 (16:08 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 20 Jun 2015 15:08:46 +0000 (16:08 +0100)
infra/dgit-ssh-dispatch

index f29515f..e90687c 100755 (executable)
@@ -111,6 +111,12 @@ sub hasrepo () {
     }
 }
 
+sub serve_up ($) {
+    my ($repo) = @_;
+    exec qw(git upload-pack --strict --timeout=1000), $repo;
+    die "exec git: $!";
+}
+
 sub dispatch () {
     local ($_) = $ENV{'SSH_ORIGINAL_COMMAND'};
 
@@ -129,8 +135,7 @@ sub dispatch () {
            die "exec $s: $!";
        } elsif ($cmd eq 'upload-pack') {
            $repo='$repos/_empty' unless hasrepo;
-           exec qw(git upload-pack --strict --timeout=1000), $repo;
-           die "exec git: $!";
+           serve_up $repo;
        } else {
            die "unsupported git operation $cmd ($_)";
        }