]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/commitdiff
fix %links iteration
authorjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Sat, 29 Jul 2006 20:30:39 +0000 (20:30 +0000)
committerjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Sat, 29 Jul 2006 20:30:39 +0000 (20:30 +0000)
IkiWiki/Plugin/brokenlinks.pm
IkiWiki/Plugin/pagestats.pm

index 3406f991978d1e707c8f33c46cdd20db419447ab..09ce181cff2a11f6e568e875baf95522cd211366 100644 (file)
@@ -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};
index 1d4d5ecdfa3569ca4268c1e11bd9b068e82d3aac..a1b4c1d45b59ed7df414765012ddaead887a1030 100644 (file)
@@ -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);