optimise backlinks counting for pagestats, simplify function returns again

[ikiwiki.git] / IkiWiki / Plugin / pagestats.pm

diff --git a/IkiWiki/Plugin/pagestats.pm b/IkiWiki/Plugin/pagestats.pm
index fdda5767a1266d980443788cfa8e2c576aa57713..cdde43628d7997eb1ac442bc5c5f0d9b2a3e0982 100644 (file)
--- a/IkiWiki/Plugin/pagestats.pm
+++ b/IkiWiki/Plugin/pagestats.pm
@@ -35,8 +35,7 @@ sub preprocess (@) { #{{{
        foreach my $page (keys %links) {
                if (pagespec_match($page, $params{pages}, location => $params{page})) {
                        use IkiWiki::Render;
        foreach my $page (keys %links) {
                if (pagespec_match($page, $params{pages}, location => $params{page})) {
                        use IkiWiki::Render;

-                       my @bl = IkiWiki::backlinks($page);
-                       $counts{$page} = scalar(@{$bl[0]})+scalar(@{$bl[1]});
+                       $counts{$page} = scalar(IkiWiki::backlinks($page));

                        $max = $counts{$page} if $counts{$page} > $max;
                }
        }
                        $max = $counts{$page} if $counts{$page} > $max;
                }
        }