X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/a771728da06a486a78996800d82cc87c0466328b..f7d49b96d21cbbbf7fbf11de4ecd051ba73a17d5:/ikiwiki

diff --git a/ikiwiki b/ikiwiki
index debf43a54..813c38b52 100755
--- a/ikiwiki
+++ b/ikiwiki
@@ -399,10 +399,11 @@ sub rcs_recentchanges ($) {
 				$state='body';
 			}
 			elsif ($state eq 'body' && /$div/) {
-				push @ret, {rev => $rev, user => $user,
+				push @ret, { rev => $rev, user => $user,
 					date => $when, message => $message,
-					pages => [@pages]},
-				last if @ret >= $num;
+					pages => [@pages] };
+				print STDERR "have: $#ret; most recent is $ret[$#ret]\n";
+				return @ret if @ret >= $num;
 				
 				$state='header';
 				$message=$rev=$user=$when=undef;
@@ -640,6 +641,7 @@ sub cgi () {
 	if ($do eq 'recentchanges') {
 		my $list="<ul>\n";
 		foreach my $change (rcs_recentchanges(100)) {
+			print STDERR "change: $change....\n";
 			$list.="<li>";
 			foreach my $page (@{$change->{pages}}) {
 				$list.=$page." ";