git-svn: fix mismatched src/dst errors for branch/tag

diff --git a/git-svn.perl b/git-svn.perl
index e0773eff4ea3fa297925795e28e9b0dfdd0e35b6..e05bf366cc1946375be5d9dc91de4f38a0b31540 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -710,6 +710,10 @@ sub cmd_branch {
        my ($lft, $rgt) = @{ $glob->{path} }{qw/left right/};
        my $dst = join '/', $remote->{url}, $lft, $branch_name, ($rgt || ());
 
+       if ($dst =~ /^https:/ && $src =~ /^http:/) {
+               $src=~s/^http:/https:/;
+       }
+
        my $ctx = SVN::Client->new(
                auth    => Git::SVN::Ra::_auth_providers(),
                log_msg => sub {