环境信息
~$ git --version
git version 2.11.0
~$ git svn --version
git-svn version 2.11.0 (svn 1.9.5)
~$ svn --version
svn, version 1.9.5 (r1770682)
我试图克隆一个内部托管的SVN仓库,但是遇到了以下错误:
~$ git svn clone http://[server]/svn/dev1
Initialized empty Git repository in [~]/test/[root]/.git/
Can't create session: Unable to connect to a repository at URL \
'http://[server]/svn/[root]' at /usr/share/perl5/Git/SVN.pm line 148.
SVN checkout正常工作。我尝试使用svn://协议,但是它不认识[server]作为已知的主机名。
如果我将clone分成init和fetch,则失败的是fetch步骤。
我应该补充说明,像SmartGit这样的解决方案对我来说不是一个选择;我在一家拥有1000多名开发人员的公司工作,支持一个开发人员的成本将是天文数字。
SVN.pm:148读取my $ra = Git::SVN::Ra->new($url);——从我的其他研究中(我找不到帖子了),我相信这是一个围绕SVN函数的包装器。这是Ra->new的定义:
sub new {
my ($class, $url) = @_;
$url = canonicalize_url($url);
return $RA if ($RA && $RA->url eq $url);
::_req_svn();
$RA = undef;
my ($config, $baton, $callbacks) = prepare_config_once();
my $self = SVN::Ra->new(url => $url, auth => $baton,
config => $config,
pool => SVN::Pool->new,
auth_provider_callbacks => $callbacks);
$RA = bless $self, $class;
# Make sure its canonicalized
$self->url($url);
$self->{svn_path} = $url;
$self->{repos_root} = $self->get_repos_root;
$self->{svn_path} =~ s#^\Q$self->{repos_root}\E(/|$)##;
$self->{cache} = { check_path => { r => 0, data => {} },
get_dir => { r => 0, data => {} } };
return $RA;
}
我不懂Perl,所以这是我能做到的最好程度 - 我找不到所提到的SVN::Ra->new
。
/dev1
这一部分。 - Adam