gitweb: Fix displaying unchopped argument in chop_and_escape_str

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 5a5fb61c03422c8aabdb3ee836e2893aabbf856482e846854503a98cd39393eb..dd5283cf4b7cabbd22ae86a877670696675093fa9a792253e79a0d0b1d1ed28b 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -867,8 +867,8 @@ sub chop_and_escape_str {
        if ($chopped eq $str) {
                return esc_html($chopped);
        } else {
-               return qq{<span title="} . esc_html($str) . qq{">} .
-                       esc_html($chopped) . qq{</span>};
+               $str =~ s/([[:cntrl:]])/?/g;
+               return $cgi->span({-title=>$str}, esc_html($chopped));
        }
 }