dgit-repos-server: Don't crash on --quilt=baredebian

[dgit.git] / infra / dgit-repos-server

diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server
index b853162812981d0f03634589c3f6af8535ab4f28..177829e9aeffce5ccd60a3e9a832f427c1623fa5 100755 (executable)
--- a/infra/dgit-repos-server
+++ b/infra/dgit-repos-server
@@ -1073,7 +1073,6 @@ our @hookenvs = qw(distro suitesfile suitesformasterfile policyhook
 # workrepo and destrepo handled ad-hoc
 
 sub mode_tag2upload () {
-    # PROTOTYPE
     # CALLER MUST PREVENT MULTIPLE CONCURRENT RUNS IN SAME CWD
     # If we fail (exit nonzero), caller should capture our stderr,
     #  and retry some bounded number of times in some appropriate way
@@ -1283,7 +1282,8 @@ END
     if (defined $quilt) {
        push @dgitcmd, "--quilt=$quilt";
        if ($quilt =~ m/baredebian/) {
-           die "needed upstream commmitish with --quilt=baredebian";
+           die "needed upstream commmitish with --quilt=baredebian"
+               unless defined $upstreamc;
            push @dgitcmd, "--upstream-commitish=$upstreamc";
        }
     }