Revert "Revert the effects of find_del_files() for (re)autoadded files."

This reverts commit 31680111f0062f07727d14fcf291c98978ad5a2f.
master
David Riebenbauer 2010-04-03 21:17:20 +02:00
parent a358d74bef
commit 628a52a6c4
2 changed files with 1 additions and 11 deletions

View File

@ -14,8 +14,7 @@ use open qw{:utf8 :std};
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

View File

@ -392,9 +392,7 @@ sub find_del_files ($) {
else {
push @del, $pagesources{$page};
}
$dellinks{$page}= $links{$page};
$links{$page}=[];
$delrenderedfiles{$page}= $renderedfiles{$page};
$renderedfiles{$page}=[];
$pagemtime{$page}=0;
}
@ -644,14 +642,8 @@ sub refresh () {
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));
}
@ -663,7 +655,6 @@ sub refresh () {
scan($autofile);
}
$del = [keys %del_hash];
calculate_links();