Merge branch 'maint'
[gitweb.git] / gitweb / gitweb.perl
index d6eb7291d66ffc8a6dc6ecc331d44f3652c5a98f..c9e2af67ca5296af06de0e9d622eec272f7d5943 100755 (executable)
@@ -1096,8 +1096,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;
 }