gitweb/README: fix AliasMatch in example

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 3e34443b58215e0a6d587c8bd3f00ef38a5b20c686dce8b4429d50f9726c3da4..0146151e543bb653a24de1ea7b25845e305c3075bc8ee1feb5d01ee1497adb03 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -1237,7 +1237,7 @@ sub chop_and_escape_str {
        if ($chopped eq $str) {
                return esc_html($chopped);
        } else {
        if ($chopped eq $str) {
                return esc_html($chopped);
        } else {

-               $str =~ s/([[:cntrl:]])/?/g;
+               $str =~ s/[[:cntrl:]]/?/g;

                return $cgi->span({-title=>$str}, esc_html($chopped));
        }
 }
                return $cgi->span({-title=>$str}, esc_html($chopped));
        }
 }


@@ -1460,6 +1460,7 @@ sub format_subject_html {
        $extra = '' unless defined($extra);
 
        if (length($short) < length($long)) {
        $extra = '' unless defined($extra);
 
        if (length($short) < length($long)) {

+               $long =~ s/[[:cntrl:]]/?/g;

                return $cgi->a({-href => $href, -class => "list subject",
                                -title => to_utf8($long)},
                       esc_html($short) . $extra);
                return $cgi->a({-href => $href, -class => "list subject",
                                -title => to_utf8($long)},
                       esc_html($short) . $extra);