ignore duplicated slashes in make_relative_path()

diff --git a/git-svn.perl b/git-svn.perl
index dba0d12b00797acc213f90f13f677a68ae7dfb5f..650c9e5f02ead07351629d6572e82c3a9ac7ef92 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -663,7 +663,8 @@ sub cmd_branch {
        }
        $head ||= 'HEAD';
 
-       my ($src, $rev, undef, $gs) = working_head_info($head);
+       my (undef, $rev, undef, $gs) = working_head_info($head);
+       my $src = $gs->full_url;
 
        my $remote = Git::SVN::read_all_remotes()->{$gs->{repo_id}};
        my $allglobs = $remote->{ $_tag ? 'tags' : 'branches' };