urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

recentchanges

master
joey 2006-03-11 04:31:20 +00:00
parent 4f318591a0
commit 47789aee7a
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ikiwiki
View File

@ -373,8 +373,6 @@ sub rcs_recentchanges ($) {
eval q{use Date::Parse}; eval q{use Date::Parse};
eval q{use Time::Duration}; eval q{use Time::Duration};
my %sourcepages=reverse %pagesources;
if (-d "$srcdir/.svn") { if (-d "$srcdir/.svn") {
my $info=`LANG=C svn info $srcdir`; my $info=`LANG=C svn info $srcdir`;
my ($svn_url)=$info=~/^URL: (.*)$/m; my ($svn_url)=$info=~/^URL: (.*)$/m;
@ -398,7 +396,7 @@ sub rcs_recentchanges ($) {
$when=concise(ago(time - str2time($3))); $when=concise(ago(time - str2time($3)));
} }
elsif ($state eq 'header' && /^\s+[A-Z]\s+\Q$svn_base\E\/(.+)$/) { elsif ($state eq 'header' && /^\s+[A-Z]\s+\Q$svn_base\E\/(.+)$/) {
push @pages, exists $sourcepages{$1} ? $sourcepages{$1} : $1; push @pages, pagename($1);
} }
elsif ($state eq 'header' && /^$/) { elsif ($state eq 'header' && /^$/) {
$state='body'; $state='body';