implement initiator_expect

[dgit.git] / dgit

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 ----------