Assume obsolete transient pages have the same extension as the changed page

master
Simon McVittie 2011-01-07 19:50:34 +00:00
parent c7bf305c81
commit 44b0cea85f
1 changed files with 7 additions and 5 deletions

View File

@ -33,12 +33,14 @@ sub checkconfig () {
sub change (@) { sub change (@) {
foreach my $file (@_) { foreach my $file (@_) {
# if the corresponding file exists in the transient underlay # If the corresponding file exists in the transient underlay
# and isn't actually being used, we can get rid of it # and isn't actually being used, we can get rid of it.
my $page = pagename($file); # Assume that the file that just changed has the same extension
my $casualty = "$transientdir/$page.$config{default_pageext}"; # as the obsolete transient version: this'll be true for web
# edits, and avoids invoking File::Find.
my $casualty = "$transientdir/$file";
if (srcfile($file) ne $casualty && -e $casualty) { if (srcfile($file) ne $casualty && -e $casualty) {
debug(sprintf(gettext("removing transient version of %s"), $page)); debug(sprintf(gettext("removing transient version of %s"), $file));
IkiWiki::prune($casualty); IkiWiki::prune($casualty);
} }
} }