monotone: When getting the log, tell monotone how many entries we want, rather than closing the pipe, which it dislikes. (thm)

master
Joey Hess 2008-12-17 13:59:12 -05:00
parent b2366f764b
commit f9b87a9f8b
3 changed files with 7 additions and 3 deletions

View File

@ -525,13 +525,12 @@ sub rcs_recentchanges ($) { #{{{
my $child = open(MTNLOG, "-|");
if (! $child) {
exec("mtn", "log", "--root=$config{mtnrootdir}", "--no-graph",
"--brief") || error("mtn log failed to run");
"--brief", "--last=$num") || error("mtn log failed to run");
}
while (($num >= 0) and (my $line = <MTNLOG>)) {
while (my $line = <MTNLOG>) {
if ($line =~ m/^($sha1_pattern)/) {
push @revs, $1;
$num -= 1;
}
}
close MTNLOG || debug("mtn log exited $?");

2
debian/changelog vendored
View File

@ -16,6 +16,8 @@ ikiwiki (2.71) UNRELEASED; urgency=low
* meta: Pass info to htmlscrubber so htmlscrubber_skip can take effect.
* htmlbalance: don't compact whitespace, and set misc other options (smcv)
* rename: Fix double-escaping of page name in edit box.
* monotone: When getting the log, tell monotone how many entries
we want, rather than closing the pipe, which it dislikes. (thm)
-- Joey Hess <joeyh@debian.org> Mon, 17 Nov 2008 14:02:10 -0500

View File

@ -19,3 +19,6 @@ When using monotone as revision control system, a "mtn: operation canceled: Brok
}
}
close MTNLOG || debug("mtn log exited $?");
> Thanks for the patch, and for testing the monotone backend.
> applied [[done]] --[[Joey]]