X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=dgit-repos-server;h=eb59edc4e2b02014b225808a34d75388a1ccbe50;hb=397c47973c3f1fb2dbbbfc4fff1d2d88c8df711d;hp=3a471a1d741718f9cff003d38f5bc2b560af97cb;hpb=4d5f90bf99d9f50ebf2012b5aba4ebe7b114125c;p=dgit.git

diff --git a/dgit-repos-server b/dgit-repos-server
index 3a471a1d..eb59edc4 100755
--- a/dgit-repos-server
+++ b/dgit-repos-server
@@ -232,7 +232,7 @@ sub maybeinstallprospective () {
 sub main__git_receive_pack () {
     makeworkingclone();
     setupstunthook();
-    runcmd qw(git receive-pack), $destrepo;
+    runcmd qw(git receive-pack), $workrepo;
     maybeinstallprospective();
 }
 
@@ -245,7 +245,7 @@ sub readupdates () {
     debug " updates ...";
     while (<STDIN>) {
 	chomp or die;
-	debug " updates| $_";
+	debug " upd.| $_";
 	m/^(\S+) (\S+) (\S+)$/ or die "$_ ?";
 	my ($old, $sha1, $refname) = ($1, $2, $3);
 	if ($refname =~ m{^refs/tags/(?=debian/)}) {
@@ -292,7 +292,7 @@ sub parsetag () {
 
     die unless $1 eq $package;
     $version = $2;
-    die unless $3 eq $suite;
+    die "$3 != $suite " unless $3 eq $suite;
 
     for (;;) {
 	print PT or die $!;