gitweb: accept trailing "/" in $project_list

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index fb4cf84d591c40e9071c26ca7d1b0262bec5802088a2bedbf97eaff60701952a..247b446c16d45ebbefd7edb878fc9b3cbd2f301248e884b38d7a0b578efce527 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -2837,8 +2837,8 @@ sub git_get_projects_list {
                my $dir = $projects_list;
                # remove the trailing "/"
                $dir =~ s!/+$!!;
-               my $pfxlen = length("$projects_list");
-               my $pfxdepth = ($projects_list =~ tr!/!!);
+               my $pfxlen = length("$dir");
+               my $pfxdepth = ($dir =~ tr!/!!);
                # when filtering, search only given subdirectory
                if ($filter) {
                        $dir .= "/$filter";