From: arnaudbrejeon <arnaud.brej...@gmail.com> Signed-off-by: Arnaud Brejeon <arnaud.brejeon <at> gmail.com> --- git-svn.perl | 1 + perl/Git/SVN/Prompt.pm | 9 ++++++++- 2 files changed, 9 insertions(+), 1 deletion(-)
diff --git a/git-svn.perl b/git-svn.perl index 07f0a6c..3dfd4d3 100755 --- a/git-svn.perl +++ b/git-svn.perl @@ -124,6 +124,7 @@ $Git::SVN::Fetcher::_placeholder_filename = ".gitignore"; $_q ||= 0; my %remote_opts = ( 'username=s' => \$Git::SVN::Prompt::_username, 'password=s' => \$Git::SVN::Prompt::_password, + 'trust-server-cert' => \$Git::SVN::Prompt::_trust_server_cert, 'config-dir=s' => \$Git::SVN::Ra::config_dir, 'no-auth-cache' => \$Git::SVN::Prompt::_no_auth_cache, 'ignore-paths=s' => \$Git::SVN::Fetcher::_ignore_regex, diff --git a/perl/Git/SVN/Prompt.pm b/perl/Git/SVN/Prompt.pm index a94a847..71459ad 100644 --- a/perl/Git/SVN/Prompt.pm +++ b/perl/Git/SVN/Prompt.pm @@ -2,7 +2,7 @@ package Git::SVN::Prompt; use strict; use warnings; require SVN::Core; -use vars qw/$_no_auth_cache $_username $_password/; +use vars qw/$_no_auth_cache $_username $_password $_trust_server_cert/; sub simple { my ($cred, $realm, $default_username, $may_save, $pool) = @_; @@ -32,6 +32,13 @@ sub simple { sub ssl_server_trust { my ($cred, $realm, $failures, $cert_info, $may_save, $pool) = @_; $may_save = undef if $_no_auth_cache; + + if ( defined $_trust_server_cert) + { + $cred->may_save($may_save); + return $SVN::_Core::SVN_NO_ERROR; + } + print STDERR "Error validating server certificate for '$realm':\n"; { no warnings 'once'; -- 1.7.10.2 (Apple Git-33) -- To unsubscribe from this list: send the line "unsubscribe git" in the body of a message to majord...@vger.kernel.org More majordomo info at http://vger.kernel.org/majordomo-info.html