wip changes for remote push - check repeated want

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 2e7df8e2862fd113e502e1193ca31d6a20ad22fd..05e95dfb131e99173554bfc1de260101efe0ab5f 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -154,11 +154,11 @@ sub fetchspec () {
 #  < data-end
 #  < files-end
 #
-#  > want signed-changes-dsc
-#  < data-block NBYTES    [transfer of signed changes]
-#  [etc]
+#  > want signed-dsc-changes
 #  < data-block NBYTES    [transfer of signed dsc]
 #  [etc]
+#  < data-block NBYTES    [transfer of signed changes]
+#  [etc]
 #  < files-end
 #
 #  > complete
@@ -1446,6 +1446,7 @@ our %i_wanted;
 
 sub i_resp_want ($) {
     my ($keyword) = @_;
+    die "$keyword ?" if $i_wanted{$keyword}++;
     my @localpaths = i_method "i_want_", $keyword;
     foreach my $localpath (@localpaths) {
        protocol_send_file \*RI, $localpath;