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 @@ package Git::SVN::Ra;
 use strict;
 use warnings;
 my ($can_do_switch);
 use strict;
 use warnings;
 my ($can_do_switch);

+my %RA;

 
 BEGIN {
        # enforce temporary pool usage for some simple functions
 
 BEGIN {
        # enforce temporary pool usage for some simple functions


@@ -2033,6 +2034,9 @@ BEGIN
 
 sub new {
        my ($class, $url) = @_;
 
 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(),
        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/*##;
        $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 {
 }
 
 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 {
 }
 
 sub dup {