gitweb: Remove extra "/" in path names for git_get_project_list

diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
index 3dfa59f616c78cea8147e58aee1accde68c58046..3759be37b8830ececee270c212a99d1a03f8b9fa 100755 (executable)
--- a/gitweb/gitweb.perl
+++ b/gitweb/gitweb.perl
@@ -902,6 +902,8 @@ sub git_get_projects_list {
        if (-d $projects_list) {
                # search in directory
                my $dir = $projects_list;
+               # remove the trailing "/"
+               $dir =~ s!/+$!!;
                my $pfxlen = length("$dir");
 
                File::Find::find({