git-svn: add join_paths() to safely concatenate paths

diff --git a/git-svn.perl b/git-svn.perl
index a857484c582e4010720f6fdd25370b68855e77ba..6e3e2404735bab306c0786e5d5b28454cb80c7bc 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -34,6 +34,7 @@
        can_compress
        canonicalize_path
        canonicalize_url
+       join_paths
 );
 
 use Git qw(
@@ -1275,7 +1276,7 @@ sub get_svnprops {
        $path = $cmd_dir_prefix . $path;
        fatal("No such file or directory: $path") unless -e $path;
        my $is_dir = -d $path ? 1 : 0;
-       $path = $gs->{path} . '/' . $path;
+       $path = join_paths($gs->{path}, $path);
 
        # canonicalize the path (otherwise libsvn will abort or fail to
        # find the file)