use vars qw{%config %links %oldlinks %pagemtime %pagectime %pagecase
%pagestate %wikistate %renderedfiles %oldrenderedfiles
%pagesources %destsources %depends %depends_simple %hooks
- %forcerebuild %loaded_plugins @autofiles %dellinks
- %delrenderedfiles};
+ %forcerebuild %loaded_plugins @autofiles};
use Exporter q{import};
our @EXPORT = qw(hook debug error template htmlpage deptype
else {
push @del, $pagesources{$page};
}
- $dellinks{$page}= $links{$page};
$links{$page}=[];
- $delrenderedfiles{$page}= $renderedfiles{$page};
$renderedfiles{$page}=[];
$pagemtime{$page}=0;
}
scan($file);
}
- my %del_hash = map {$_, 1} @$del;
while (my $autofile = shift (@autofiles)) {
my $page=pagename($autofile);
- if (exists $del_hash{$page}) {
- $links{$page}= $dellinks{$page};
- $renderedfiles{$page}= $delrenderedfiles{$page};
- delete $del_hash{$page};
- }
if ($pages->{$page}) {
debug(sprintf(gettext("%s has multiple possible source pages"), $page));
}
scan($autofile);
}
- $del = [keys %del_hash];
calculate_links();