403 response may be a "not found" too

[git.ikiwiki.info.git] / IkiWiki / Render.pm

diff --git a/IkiWiki/Render.pm b/IkiWiki/Render.pm
index 0fe20c64f3a0939d7dde93107e7b0285e883e2a2..0889fed6218aa79e551b3656c2a93ba9607c9d69 100644 (file)
--- a/IkiWiki/Render.pm
+++ b/IkiWiki/Render.pm
@@ -287,13 +287,13 @@ sub find_src_files () {
                wanted => sub {
                        my $file=decode_utf8($_);
                        $file=~s/^\Q$config{srcdir}\E\/?//;
                wanted => sub {
                        my $file=decode_utf8($_);
                        $file=~s/^\Q$config{srcdir}\E\/?//;

+                       return if -l $_ || -d _ || ! length $file;

                        my $page = pagename($file);
                        if (! exists $pagesources{$page} &&
                            file_pruned($file)) {
                                $File::Find::prune=1;
                                return;
                        }
                        my $page = pagename($file);
                        if (! exists $pagesources{$page} &&
                            file_pruned($file)) {
                                $File::Find::prune=1;
                                return;
                        }

-                       return if -l $_ || -d _ || ! length $file;

 
                        my ($f) = $file =~ /$config{wiki_file_regexp}/; # untaint
                        if (! defined $f) {
 
                        my ($f) = $file =~ /$config{wiki_file_regexp}/; # untaint
                        if (! defined $f) {


@@ -314,13 +314,13 @@ sub find_src_files () {
                        wanted => sub {
                                my $file=decode_utf8($_);
                                $file=~s/^\Q$dir\E\/?//;
                        wanted => sub {
                                my $file=decode_utf8($_);
                                $file=~s/^\Q$dir\E\/?//;

+                               return if -l $_ || -d _ || ! length $file;

                                my $page=pagename($file);
                                if (! exists $pagesources{$page} &&
                                    file_pruned($file)) {
                                        $File::Find::prune=1;
                                        return;
                                }
                                my $page=pagename($file);
                                if (! exists $pagesources{$page} &&
                                    file_pruned($file)) {
                                        $File::Find::prune=1;
                                        return;
                                }

-                               return if -l $_ || -d _ || ! length $file;

 
                                my ($f) = $file =~ /$config{wiki_file_regexp}/; # untaint
                                if (! defined $f) {
 
                                my ($f) = $file =~ /$config{wiki_file_regexp}/; # untaint
                                if (! defined $f) {