optimise svn log a bit
authorjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Thu, 16 Mar 2006 21:20:33 +0000 (21:20 +0000)
committerjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Thu, 16 Mar 2006 21:20:33 +0000 (21:20 +0000)
ikiwiki

diff --git a/ikiwiki b/ikiwiki
index cb90ef04f10b7cee9a81d2223df028feb98e8438..bda2d0401376f9cb7ee6ea0cd1f71d2192249d3c 100755 (executable)
--- a/ikiwiki
+++ b/ikiwiki
@@ -504,7 +504,7 @@ sub rcs_recentchanges ($) { #{{{
                my $infoline=qr/^r(\d+)\s+\|\s+([^\s]+)\s+\|\s+(\d+-\d+-\d+\s+\d+:\d+:\d+\s+[-+]?\d+).*/;
                my $state='start';
                my ($rev, $user, $when, @pages, @message);
                my $infoline=qr/^r(\d+)\s+\|\s+([^\s]+)\s+\|\s+(\d+-\d+-\d+\s+\d+:\d+:\d+\s+[-+]?\d+).*/;
                my $state='start';
                my ($rev, $user, $when, @pages, @message);
-               foreach (`LANG=C svn log -v '$svn_url'`) {
+               foreach (`LANG=C svn log --limit $num -v '$svn_url'`) {
                        chomp;
                        if ($state eq 'start' && /$div/) {
                                $state='header';
                        chomp;
                        if ($state eq 'start' && /$div/) {
                                $state='header';