git-svn: do not escape certain characters in paths

[git.git] / perl / Git / SVN / Editor.pm

diff --git a/perl/Git/SVN/Editor.pm b/perl/Git/SVN/Editor.pm
index 178920c852c917062fac7cfe0f3ea8bc6041944d..3db152155c62fb43b6243c10ce25cc193895afe3 100644 (file)
--- a/perl/Git/SVN/Editor.pm
+++ b/perl/Git/SVN/Editor.pm
@@ -145,7 +145,8 @@ sub repo_path {
 sub url_path {
        my ($self, $path) = @_;
        if ($self->{url} =~ m#^https?://#) {
-               $path =~ s!([^~a-zA-Z0-9_./-])!uc sprintf("%%%02x",ord($1))!eg;
+               # characters are taken from subversion/libsvn_subr/path.c
+               $path =~ s#([^~a-zA-Z0-9_./!$&'()*+,-])#uc sprintf("%%%02x",ord($1))#eg;
        }
        $self->{url} . '/' . $self->repo_path($path);
 }