gitweb: Fix displaying unchopped argument in chop_and_escape_str

diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
index 5e88637b5e0e67143692bac336a57ab6cc1c0c38..47e3a413466dde701475b1974c669b7e7d0cd63d 100755 (executable)
--- a/gitweb/gitweb.perl
+++ b/gitweb/gitweb.perl
@@ -866,8 +866,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));
        }
 }