gitweb: fix regression when filtering out forks

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 944898b1c91b08eb65c4d588b0c0933c059f1ebe6a9708a71ecb284a264c90ec..09a995158daf0778440a60af697ebe6e2d1d64094a81411cdc75e2ec70d685af 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -2889,7 +2889,7 @@ sub filter_forks_from_projects_list {
                $path =~ s/\.git$//;      # forks of 'repo.git' are in 'repo/' directory
                next if ($path =~ m!/$!); # skip non-bare repositories, e.g. 'repo/.git'
                next unless ($path);      # skip '.git' repository: tests, git-instaweb
                $path =~ s/\.git$//;      # forks of 'repo.git' are in 'repo/' directory
                next if ($path =~ m!/$!); # skip non-bare repositories, e.g. 'repo/.git'
                next unless ($path);      # skip '.git' repository: tests, git-instaweb

-               next unless (-d $path);   # containing directory exists
+               next unless (-d "$projectroot/$path"); # containing directory exists

                $pr->{'forks'} = [];      # there can be 0 or more forks of project
 
                # add to trie
                $pr->{'forks'} = [];      # there can be 0 or more forks of project
 
                # add to trie