Revert the effects of find_del_files() for (re)autoadded files.
This also means that if autoadded files are deleted they will just be recreated.master
parent
a8d313aba1
commit
f58f3e1bec
|
@ -14,7 +14,8 @@ 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};
|
||||
%forcerebuild %loaded_plugins @autofiles %dellinks
|
||||
%delrenderedfiles};
|
||||
|
||||
use Exporter q{import};
|
||||
our @EXPORT = qw(hook debug error template htmlpage deptype
|
||||
|
|
|
@ -392,7 +392,9 @@ sub find_del_files ($) {
|
|||
else {
|
||||
push @del, $pagesources{$page};
|
||||
}
|
||||
$dellinks{$page}= $links{$page};
|
||||
$links{$page}=[];
|
||||
$delrenderedfiles{$page}= $renderedfiles{$page};
|
||||
$renderedfiles{$page}=[];
|
||||
$pagemtime{$page}=0;
|
||||
}
|
||||
|
@ -642,8 +644,14 @@ 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));
|
||||
}
|
||||
|
@ -655,6 +663,7 @@ sub refresh () {
|
|||
|
||||
scan($autofile);
|
||||
}
|
||||
$del = [keys %del_hash];
|
||||
|
||||
calculate_links();
|
||||
|
||||
|
|
Loading…
Reference in New Issue