git-svn: reuse open SVN::Ra connections by URL

Note: this can cause problems with Perl's reference counting GC,
so I'm disabling Git::SVN::Ra::DESTROY.  If we notice more
problems down the line, we can disable this enhancement.

Signed-off-by: Eric Wong <normalperson@yhbt.net>

diff --git a/git-svn.perl b/git-svn.perl
index b5a4cb05a6d068034a539c4d7ac9bc24691bcb4a..4084e0657b993134e513dc573c25e1edfb5990d0 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -2015,6 +2015,7 @@ use vars qw/@ISA $config_dir/;
 use strict;
 use warnings;
 my ($can_do_switch);
+my %RA;
 
 BEGIN {
        # enforce temporary pool usage for some simple functions
@@ -2033,6 +2034,9 @@ BEGIN {
 
 sub new {
        my ($class, $url) = @_;
+       $url =~ s!/+$!!;
+       return $RA{$url} if $RA{$url};
+
        SVN::_Core::svn_config_ensure($config_dir, undef);
        my ($baton, $callbacks) = SVN::Core::auth_open_helper([
            SVN::Client::get_simple_provider(),
@@ -2057,13 +2061,11 @@ sub new {
        $self->{svn_path} = $url;
        $self->{repos_root} = $self->get_repos_root;
        $self->{svn_path} =~ s#^\Q$self->{repos_root}\E/*##;
-       bless $self, $class;
+       $RA{$url} = bless $self, $class;
 }
 
 sub DESTROY {
-       my $self = shift;
-       $self->{pool}->clear if $self->{pool};
-       $self->SUPER::DESTROY(@_);
+       # do not call the real DESTROY since we store ourselves in %RA
 }
 
 sub dup {