diff options
| author | Joey Hess <joey@gnu.kitenet.net> | 2008-12-17 13:59:12 -0500 |
|---|---|---|
| committer | Joey Hess <joey@gnu.kitenet.net> | 2008-12-17 13:59:12 -0500 |
| commit | f9b87a9f8b498f3a41614b159dcb278024be70dd (patch) | |
| tree | 26ec39338ec5cc3eaa3d48ac315d1fad2cbfbd2a /IkiWiki/Plugin/monotone.pm | |
| parent | b2366f764b799522c323730eee34d99afc70cad1 (diff) | |
| download | ikiwiki-f9b87a9f8b498f3a41614b159dcb278024be70dd.tar ikiwiki-f9b87a9f8b498f3a41614b159dcb278024be70dd.tar.gz | |
monotone: When getting the log, tell monotone how many entries we want, rather than closing the pipe, which it dislikes. (thm)
Diffstat (limited to 'IkiWiki/Plugin/monotone.pm')
| -rw-r--r-- | IkiWiki/Plugin/monotone.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/IkiWiki/Plugin/monotone.pm b/IkiWiki/Plugin/monotone.pm index f31a8606b..3a8b267a3 100644 --- a/IkiWiki/Plugin/monotone.pm +++ b/IkiWiki/Plugin/monotone.pm @@ -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 $?"); |