diff options
Diffstat (limited to 'dgit')
-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; } |