mirror/ git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-06-09 14:06:12 +02:00
Code

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>
This commit is contained in:
Eric Wong 2007-01-18 18:22:18 -08:00
parent 780a2f58e7
commit f6f0987646
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
git-svn.perl
View File

@ -2015,6 +2015,7 @@ package Git::SVN::Ra;
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 {