}
my @orphans;
+ my $discussion=gettext("discussion");
foreach my $page (keys %renderedfiles) {
next if $linkedto{$page};
- next unless pagespec_match($page, $params{pages});
+ next unless pagespec_match($page, $params{pages}, $params{page});
# If the page has a link to some other page, it's
# indirectly linked to a page via that page's backlinks.
next if grep {
length $_ &&
- ($_ !~ /\/Discussion$/i || ! $config{discussion}) &&
+ ($_ !~ /\/\Q$discussion\E$/i || ! $config{discussion}) &&
bestlink($page, $_) !~ /^($page|)$/
} @{$links{$page}};
push @orphans, $page;