optimise svn log a bit

master
joey 2006-03-16 21:20:33 +00:00
parent f4d6635512
commit 7bbfbf82fb
1 changed files with 1 additions and 1 deletions

View File

@ -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 $infoline=qr/^r(\d+)\s+\|\s+([^\s]+)\s+\|\s+(\d+-\d+-\d+\s+\d+:\d+:\d+\s+[-+]?\d+).*/;
my $state='start'; my $state='start';
my ($rev, $user, $when, @pages, @message); 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; chomp;
if ($state eq 'start' && /$div/) { if ($state eq 'start' && /$div/) {
$state='header'; $state='header';