From b92d6ac923182f1227146c9857f78c971e913585 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 23 Oct 2013 12:33:05 +0100
Subject: [PATCH] improve remote messages (reverse direction of << [[ ]] etc.)

---
 dgit | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/dgit b/dgit
index 7052bf11..cb4e4977 100755
--- a/dgit
+++ b/dgit
@@ -248,14 +248,14 @@ sub responder_send_command ($) {
     my ($command) = @_;
     return unless $we_are_responder;
     # called even without $we_are_responder
-    printdebug "<< $command\n";
+    printdebug ">> $command\n";
     print PO $command, "\n" or die $!;
 }    
 
 sub responder_send_file ($$) {
     my ($keyword, $ourfn) = @_;
     return unless $we_are_responder;
-    printdebug "[[ $keyword $ourfn\n";
+    printdebug "]] $keyword $ourfn\n";
     responder_send_command "file $keyword";
     protocol_send_file \*PO, $ourfn;
 }
@@ -263,11 +263,12 @@ sub responder_send_file ($$) {
 sub responder_receive_files ($@) {
     my ($keyword, @ourfns) = @_;
     die unless $we_are_responder;
-    printdebug "]] $keyword @ourfns\n";
+    printdebug "[[ $keyword @ourfns\n";
     responder_send_command "want $keyword";
     foreach my $fn (@ourfns) {
 	protocol_receive_file \*PI, $fn;
     }
+    printdebug "[[\$\n";
     protocol_expect { m/^files-end$/ } \*PI;
 }
 
@@ -1547,7 +1548,7 @@ sub i_resp_want ($) {
     my ($keyword) = @_;
     die "$keyword ?" if $i_wanted{$keyword}++;
     my @localpaths = i_method "i_want", $keyword;
-    printdebug "]]  $keyword @localpaths\n";
+    printdebug "[[  $keyword @localpaths\n";
     foreach my $localpath (@localpaths) {
 	protocol_send_file \*RI, $localpath;
     }
-- 
2.30.2