remember autofiles that were tried and failed to be added

This way, if an autofile is registered for a file that already exists,
it is remembered that it was tried, and it doesn't get recreated when
removed.

diff --git a/IkiWiki/Render.pm b/IkiWiki/Render.pm
index b3afabf32fad0c6362227776f201b3aeefd955f9..c3e07baf67a1625f635d43fd3e74540f3ee03783 100644 (file)
--- a/IkiWiki/Render.pm
+++ b/IkiWiki/Render.pm
@@ -682,20 +682,29 @@ sub gen_autofile ($$$) {
        my $pages=shift;
        my $del=shift;
 
        my $pages=shift;
        my $del=shift;
 

-       if (srcfile($autofile, 1) || file_pruned($autofile)) {
+       if (file_pruned($autofile)) {

                return;
        }
                return;
        }

-       
+

        my ($file)="$config{srcdir}/$autofile" =~ /$config{wiki_file_regexp}/; # untaint
        my ($file)="$config{srcdir}/$autofile" =~ /$config{wiki_file_regexp}/; # untaint

-       if (! defined $file || -l $file || -d _ || -e _) {
+       if (! defined $file) {
+               return;
+       }
+
+       # Remember autofiles that were tried, and never try them again later.
+       if (exists $wikistate{$autofiles{$autofile}{plugin}}{autofile}{$autofile}) {

                return;
        }
                return;
        }

+       $wikistate{$autofiles{$autofile}{plugin}}{autofile}{$autofile}=1;

 
 

-       if ((!defined $file) ||
-           (exists $wikistate{$autofiles{$autofile}{plugin}}{autofile}{$autofile})) {
+       if (srcfile($autofile, 1) || file_pruned($autofile)) {

                return;
        }
        
                return;
        }
        

+       if (-l $file || -d _ || -e _) {
+               return;
+       }
+

        my $page = pagename($file);
        if ($pages->{$page}) {
                return;
        my $page = pagename($file);
        if ($pages->{$page}) {
                return;


@@ -706,7 +715,6 @@ sub gen_autofile ($$$) {
        }
 
        $autofiles{$autofile}{generator}->();
        }
 
        $autofiles{$autofile}{generator}->();

-       $wikistate{$autofiles{$autofile}{plugin}}{autofile}{$autofile}=1;

        $pages->{$page}=1;
        return 1;
 }
        $pages->{$page}=1;
        return 1;
 }