Assume obsolete transient pages have the same extension as the changed page
parent
c7bf305c81
commit
44b0cea85f
|
@ -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);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue