implement initiator_expect

1 files changed, 4 insertions, 1 deletions

diff --git a/dgit b/dgit
index 8482381..381b731 100755
--- 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 ----------