Merge branch 'gb/maint-gitweb-esc-param'
* gb/maint-gitweb-esc-param: gitweb: fix esc_parammaint
commit
8e850a4dbd
|
@ -1096,8 +1096,7 @@ sub to_utf8 {
|
||||||
# correct, but quoted slashes look too horrible in bookmarks
|
# correct, but quoted slashes look too horrible in bookmarks
|
||||||
sub esc_param {
|
sub esc_param {
|
||||||
my $str = shift;
|
my $str = shift;
|
||||||
$str =~ s/([^A-Za-z0-9\-_.~()\/:@])/sprintf("%%%02X", ord($1))/eg;
|
$str =~ s/([^A-Za-z0-9\-_.~()\/:@ ]+)/CGI::escape($1)/eg;
|
||||||
$str =~ s/\+/%2B/g;
|
|
||||||
$str =~ s/ /\+/g;
|
$str =~ s/ /\+/g;
|
||||||
return $str;
|
return $str;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue