From f3edebffba3598f2fae8b4c37d911297d860f0e0 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 22 Oct 2013 17:52:45 +0100
Subject: [PATCH] remote protocol fixes

---
 dgit | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/dgit b/dgit
index 186b19e6..4c3d2244 100755
--- a/dgit
+++ b/dgit
@@ -1262,6 +1262,7 @@ sub dopush () {
     }
 
     responder_send_file('changes',$changesfile);
+    responder_send_command("param head $head");
 
     my $tfn = sub { ".git/dgit/tag$_[0]"; };
     my ($tagobjfn) =
@@ -1527,8 +1528,8 @@ sub i_resp_file ($) {
 
 our %i_param;
 
-sub i_param ($) {
-    $_[0] =~ m/^(\S+) (.*)$/;
+sub i_resp_param ($) {
+    $_[0] =~ m/^(\S+) (.*)$/ or badproto \*RO, "bad param spec";
     $i_param{$1} = $2;
 }
 
@@ -1557,6 +1558,7 @@ sub i_localname_dsc {
 }
 
 sub i_want_signed_tag {
+    printdebug Dumper(\%i_param, $i_dscfn);
     defined $i_param{'head'} && defined $i_dscfn
 	or badproto \*RO, "sequencing error";
     my $head = $i_param{'head'};
-- 
2.30.2