fix %links iteration

diff --git a/IkiWiki/Plugin/brokenlinks.pm b/IkiWiki/Plugin/brokenlinks.pm
index 3406f991978d1e707c8f33c46cdd20db419447ab..09ce181cff2a11f6e568e875baf95522cd211366 100644 (file)
--- 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;
        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};
                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 1d4d5ecdfa3569ca4268c1e11bd9b068e82d3aac..a1b4c1d45b59ed7df414765012ddaead887a1030 100644 (file)
--- a/IkiWiki/Plugin/pagestats.pm
+++ b/IkiWiki/Plugin/pagestats.pm
@@ -33,7 +33,7 @@ sub preprocess (@) { #{{{
        
        my %counts;
        my $max = 0;
        
        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);
                if (IkiWiki::globlist_match($page, $params{pages})) {
                        my @bl = IkiWiki::backlinks($page);
                        $counts{$page} = scalar(@bl);