chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
405e5ca
)
improve remote messages (reverse direction of << [[ ]] etc.)
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Wed, 23 Oct 2013 11:33:05 +0000
(12:33 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Wed, 23 Oct 2013 11:33:05 +0000
(12:33 +0100)
dgit
patch
|
blob
|
history
diff --git
a/dgit
b/dgit
index 7052bf11d3fa402d9a9288c4ae69f5d874ad03ff..cb4e497778697d8f432b1680f72040e4df8b3cf0 100755
(executable)
--- 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
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;
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;
}
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;
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;
}
responder_send_command "want $keyword";
foreach my $fn (@ourfns) {
protocol_receive_file \*PI, $fn;
}
+ printdebug "[[\$\n";
protocol_expect { m/^files-end$/ } \*PI;
}
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;
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;
}
foreach my $localpath (@localpaths) {
protocol_send_file \*RI, $localpath;
}