summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdgit11
1 files changed, 11 insertions, 0 deletions
diff --git a/dgit b/dgit
index 9d2d876..2e7df8e 100755
--- a/dgit
+++ b/dgit
@@ -144,6 +144,8 @@ sub fetchspec () {
# > file begin changes
# [etc]
#
+# > param head HEAD
+#
# > want signed-tag
# [indicates that signed tag is wanted]
# < data-block NBYTES
@@ -1433,6 +1435,15 @@ sub i_resp_file ($) {
protocol_receive_file \*RO, $localpath;
}
+our %i_param;
+
+sub i_param ($) {
+ $_[0] =~ m/^(\S+) (.*)$/;
+ $i_param{$1} = $2;
+}
+
+our %i_wanted;
+
sub i_resp_want ($) {
my ($keyword) = @_;
my @localpaths = i_method "i_want_", $keyword;