orphans: Reuse backlinks info

This plugin was building essentially the same data that is built to handle
backlinks, so reuse that as an optimisation.

diff --git a/IkiWiki/Plugin/orphans.pm b/IkiWiki/Plugin/orphans.pm
index 02f5d25245f74d83c3415178bfb6f5317b2dea98..71122677273275d3e2f160bde3c8b44a8f333e49 100644 (file)
--- a/IkiWiki/Plugin/orphans.pm
+++ b/IkiWiki/Plugin/orphans.pm
@@ -27,15 +27,9 @@ sub preprocess (@) {
        # register a dependency.
        add_depends($params{page}, $params{pages});
        
-       my %linkedto;
-       foreach my $p (keys %links) {
-               map { $linkedto{bestlink($p, $_)}=1 if length $_ }
-                       @{$links{$p}};
-       }
-       
        my @orphans;
        foreach my $page (pagespec_match_list(
-                       [ grep { ! $linkedto{$_} && $_ ne 'index' }
+                       [ grep { ! IkiWiki::backlink_pages($_) && $_ ne 'index' }
                                keys %pagesources ],
                        $params{pages}, location => $params{page})) {
                # If the page has a link to some other page, it's