diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2013-10-23 12:33:05 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2013-10-23 12:33:05 +0100 |
commit | b92d6ac923182f1227146c9857f78c971e913585 (patch) | |
tree | 001ea1fd5017ab89e66c05badfdaf1db10a25591 | |
parent | 405e5ca7a821ac385b5da78613f6048be1aaadc5 (diff) |
improve remote messages (reverse direction of << [[ ]] etc.)
-rwxr-xr-x | dgit | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -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; } |