Merge branch 'tb/test-lint-echo-e' into maint
[gitweb.git] / gitweb / gitweb.perl
index 3d4a8ee27c96a8e1eb94f95771aeca7825f8a076..9208f42ed1753530b8ea46761f8ecc61bbe95976 100755 (executable)
@@ -3071,6 +3071,8 @@ sub git_get_projects_list {
                                return if (m!^[/.]$!);
                                # only directories can be git repositories
                                return unless (-d $_);
+                               # need search permission
+                               return unless (-x $_);
                                # don't traverse too deep (Find is super slow on os x)
                                # $project_maxdepth excludes depth of $projectroot
                                if (($File::Find::name =~ tr!/!!) - $pfxdepth > $project_maxdepth) {