diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2013-10-22 10:24:52 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2013-10-22 10:24:52 +0100 |
commit | 863475c001c7846fe4de4310f517207bd8178871 (patch) | |
tree | 9a2ca2bd4215084447f38f501abe4cba7d517d21 /dgit | |
parent | e35c1a88e93f56fd874b5cf222e6037b1eb89ca4 (diff) |
wip remote - better debugging
Diffstat (limited to 'dgit')
-rwxr-xr-x | dgit | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -226,6 +226,7 @@ sub protocol_receive_file ($$) { my $d = protocol_read_bytes \*STDIN, $1; print PF $d or die $!; } + printdebug "received into $ourfn\n"; } #---------- remote protocol support, responder ---------- @@ -241,6 +242,7 @@ sub responder_send_command ($) { sub responder_send_file ($$) { my ($keyword, $ourfn) = @_; return unless $we_are_responder; + printdebug "[[ $keyword $ourfn\n"; responder_send_command "file $keyword"; protocol_send_file \*STDOUT, $ourfn; } @@ -248,6 +250,7 @@ sub responder_send_file ($$) { sub responder_receive_files ($@) { my ($keyword, @ourfns) = @_; die unless $we_are_responder; + printdebug "]] $keyword @ourfns\n"; responder_send_command "want $keyword"; foreach my $fn (@ourfns) { protocol_receive_file \*STDIN, $fn; @@ -1488,6 +1491,7 @@ sub i_resp_want ($) { my ($keyword) = @_; die "$keyword ?" if $i_wanted{$keyword}++; my @localpaths = i_method "i_want", $keyword; + printdebug "]] $keyword @localpaths\n"; foreach my $localpath (@localpaths) { protocol_send_file \*RI, $localpath; } |