diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
index 6cfe8d932de0e62b745a3242fa0e945e26fbc76b..c876e0fb4e04cd339db0a6a4c15ae5f2570ac1c9 100755 (executable)
--- a/gitweb/gitweb.perl
+++ b/gitweb/gitweb.perl
my $alternate = 1;
my $matches = 0;
my $lastfile = '';
+ my $file_href;
while (my $line = <$fd>) {
chomp $line;
- my ($file, $file_href, $lno, $ltext, $binary);
+ my ($file, $lno, $ltext, $binary);
last if ($matches++ > 1000);
if ($line =~ /^Binary file (.+) matches$/) {
$file = $1;