gitweb: Fix bugs in git_search_grep_body: it's length(), not len()

Use int(<expr>/2) to get integer value for a substring length.

Signed-off-by: Jakub Narebski <redacted>
Signed-off-by: Junio C Hamano <redacted>

diff --git a/gitweb.perl b/gitweb.perl
index 6cd61ca219b2b063f81dc2c7a40a81d9bd575a3afa4ee5e9d477a441fc951709..3bc35ccfd1998e7086dcceaf2c48fee1e40a68d96baffee9715d3a8fd9407e21 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -3793,7 +3793,7 @@ sub git_search_grep_body {
                        if ($line =~ m/^(.*)($search_regexp)(.*)$/i) {
                                my ($lead, $match, $trail) = ($1, $2, $3);
                                $match = chop_str($match, 70, 5);       # in case match is very long
-                               my $contextlen = (80 - len($match))/2;  # is left for the remainder
+                               my $contextlen = int((80 - length($match))/2); # for the remainder
                                $contextlen = 30 if ($contextlen > 30); # but not too much
                                $lead  = chop_str($lead,  $contextlen, 10);
                                $trail = chop_str($trail, $contextlen, 10);