diff options
| author | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-07-29 20:30:39 +0000 |
|---|---|---|
| committer | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-07-29 20:30:39 +0000 |
| commit | 782e4d48dffc698903d93a7024defc874854f778 (patch) | |
| tree | c75dbbedb77e9126e462e9c700462b7630744d54 /IkiWiki | |
| parent | 299bb8bef3811b16d29a0e8ebb2c292c8dd11020 (diff) | |
fix %links iteration
Diffstat (limited to 'IkiWiki')
| -rw-r--r-- | IkiWiki/Plugin/brokenlinks.pm | 2 | ||||
| -rw-r--r-- | IkiWiki/Plugin/pagestats.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/IkiWiki/Plugin/brokenlinks.pm b/IkiWiki/Plugin/brokenlinks.pm index 3406f9919..09ce181cf 100644 --- a/IkiWiki/Plugin/brokenlinks.pm +++ b/IkiWiki/Plugin/brokenlinks.pm @@ -20,7 +20,7 @@ sub preprocess (@) { #{{{ IkiWiki::add_depends($params{page}, $params{pages}); my @broken; - foreach my $page (%IkiWiki::links) { + foreach my $page (keys %IkiWiki::links) { if (IkiWiki::globlist_match($page, $params{pages})) { foreach my $link (@{$IkiWiki::links{$page}}) { next if $link =~ /.*\/discussion/i && $IkiWiki::config{discussion}; diff --git a/IkiWiki/Plugin/pagestats.pm b/IkiWiki/Plugin/pagestats.pm index 1d4d5ecdf..a1b4c1d45 100644 --- a/IkiWiki/Plugin/pagestats.pm +++ b/IkiWiki/Plugin/pagestats.pm @@ -33,7 +33,7 @@ sub preprocess (@) { #{{{ my %counts; my $max = 0; - foreach my $page (%IkiWiki::links) { + foreach my $page (keys %IkiWiki::links) { if (IkiWiki::globlist_match($page, $params{pages})) { my @bl = IkiWiki::backlinks($page); $counts{$page} = scalar(@bl); |