Revert "Revert the effects of find_del_files() for (re)autoadded files."
This reverts commit 31680111f0062f07727d14fcf291c98978ad5a2f.master
parent
a358d74bef
commit
628a52a6c4
|
@ -14,8 +14,7 @@ use open qw{:utf8 :std};
|
||||||
use vars qw{%config %links %oldlinks %pagemtime %pagectime %pagecase
|
use vars qw{%config %links %oldlinks %pagemtime %pagectime %pagecase
|
||||||
%pagestate %wikistate %renderedfiles %oldrenderedfiles
|
%pagestate %wikistate %renderedfiles %oldrenderedfiles
|
||||||
%pagesources %destsources %depends %depends_simple %hooks
|
%pagesources %destsources %depends %depends_simple %hooks
|
||||||
%forcerebuild %loaded_plugins @autofiles %dellinks
|
%forcerebuild %loaded_plugins @autofiles};
|
||||||
%delrenderedfiles};
|
|
||||||
|
|
||||||
use Exporter q{import};
|
use Exporter q{import};
|
||||||
our @EXPORT = qw(hook debug error template htmlpage deptype
|
our @EXPORT = qw(hook debug error template htmlpage deptype
|
||||||
|
|
|
@ -392,9 +392,7 @@ sub find_del_files ($) {
|
||||||
else {
|
else {
|
||||||
push @del, $pagesources{$page};
|
push @del, $pagesources{$page};
|
||||||
}
|
}
|
||||||
$dellinks{$page}= $links{$page};
|
|
||||||
$links{$page}=[];
|
$links{$page}=[];
|
||||||
$delrenderedfiles{$page}= $renderedfiles{$page};
|
|
||||||
$renderedfiles{$page}=[];
|
$renderedfiles{$page}=[];
|
||||||
$pagemtime{$page}=0;
|
$pagemtime{$page}=0;
|
||||||
}
|
}
|
||||||
|
@ -644,14 +642,8 @@ sub refresh () {
|
||||||
scan($file);
|
scan($file);
|
||||||
}
|
}
|
||||||
|
|
||||||
my %del_hash = map {$_, 1} @$del;
|
|
||||||
while (my $autofile = shift (@autofiles)) {
|
while (my $autofile = shift (@autofiles)) {
|
||||||
my $page=pagename($autofile);
|
my $page=pagename($autofile);
|
||||||
if (exists $del_hash{$page}) {
|
|
||||||
$links{$page}= $dellinks{$page};
|
|
||||||
$renderedfiles{$page}= $delrenderedfiles{$page};
|
|
||||||
delete $del_hash{$page};
|
|
||||||
}
|
|
||||||
if ($pages->{$page}) {
|
if ($pages->{$page}) {
|
||||||
debug(sprintf(gettext("%s has multiple possible source pages"), $page));
|
debug(sprintf(gettext("%s has multiple possible source pages"), $page));
|
||||||
}
|
}
|
||||||
|
@ -663,7 +655,6 @@ sub refresh () {
|
||||||
|
|
||||||
scan($autofile);
|
scan($autofile);
|
||||||
}
|
}
|
||||||
$del = [keys %del_hash];
|
|
||||||
|
|
||||||
calculate_links();
|
calculate_links();
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue