diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
index fc41b07bcb4a7493d255150b3a3fa75ca7412352..285fe88403a9d65aafd9a9cf7628a4dde0aa9829 100755 (executable)
--- a/gitweb/gitweb.perl
+++ b/gitweb/gitweb.perl
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";