From 351c723507e174a4c260fc536e7717219eb9105d Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Tue, 19 Apr 2011 06:00:17 +0200 Subject: [PATCH] [commit-patch] Add support for monotone --- commit-patch | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/commit-patch b/commit-patch index 25ed6f7..79bd581 100755 --- a/commit-patch +++ b/commit-patch @@ -110,6 +110,16 @@ while (!$vc{name}) { $vc{message_file} = sub { ('-F', $_[0]) }; $vc{previous_message} = sub { my $prev; run([qw(git log -1 --pretty=format:%s%n%b)], '>', \$prev); $prev }; # Git is special cased below. + } elsif (-d "$repo/_MTN") { + $vc{name} = 'mtn'; + $vc{diff} = 'mtn diff'; + $vc{commit} = 'mtn commit'; + $vc{message} = sub { ('-m', $_[0]) }; + $vc{message_file} = sub { ('--message-file', $_[0]) }; + $vc{add} = 'mtn add'; + $vc{remove} = 'mtn drop'; + $vc{patcharg} = '-p0'; + $vc{lsdiffarg} = []; } else { $repo.="/.."; printf("Trying back a dir: $repo, abs:%s\n", abs_path($repo)); -- 2.51.2