diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2013-10-22 17:52:45 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2013-10-22 17:52:45 +0100 |
commit | f3edebffba3598f2fae8b4c37d911297d860f0e0 (patch) | |
tree | fa1a261c9bbe7a7670c62855b60c51209bdfd9db | |
parent | e2cb7948aea24d3fd348330c8f5d6e9309be0261 (diff) |
remote protocol fixes
-rwxr-xr-x | dgit | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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'}; |