implement initiator_expect

diff --git a/TODO b/TODO
index 589059736a4e8a84a42a82cd21beaf6cd69e0072..7a3d6883da369889809f9c006e306a2b491dea20 100644 (file)
--- a/TODO
+++ b/TODO
@@ -1,3 +1,5 @@
+implement i_resp_*
+
 --gpg= etc. @gpg should be in manual
 should pass @gpg to debsign
 --ssh= etc. @ssh should be in manual

diff --git a/dgit b/dgit
index 848238134d5de95ba0b8ab3c5f4981300923bf67..381b7311946f2e7cf6dac556f3bbed1e026c6684 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -233,7 +233,10 @@ sub responder_receive_files ($@) {
 
 #---------- remote protocol support, initiator ----------
 
-
+sub initiator_expect (&) {
+    my ($match) = @_;
+    protocol_expect \*RO, &$match;
+}
 
 #---------- end remote code ----------