gitweb: fix esc_param

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 924d62614a007781297450007174f389b2822b3b929ca2da921a1d54a613b4aa..8347d07e1c21ae1a5cd5522bbfe96549dacc6eb9324b35b56637237341a15788 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -1117,8 +1117,7 @@ sub to_utf8 {
 # correct, but quoted slashes look too horrible in bookmarks
 sub esc_param {
        my $str = shift;
-       $str =~ s/([^A-Za-z0-9\-_.~()\/:@])/sprintf("%%%02X", ord($1))/eg;
-       $str =~ s/\+/%2B/g;
+       $str =~ s/([^A-Za-z0-9\-_.~()\/:@ ]+)/CGI::escape($1)/eg;
        $str =~ s/ /\+/g;
        return $str;
 }