[Bps-public-commit] r11393 - SVN-PropDB/lib/Prophet/Sync/Source

[clkao at bestpractical.com]

Author: clkao
Date: Wed Apr  2 07:50:35 2008
New Revision: 11393

Modified:
   SVN-PropDB/lib/Prophet/Sync/Source/SVN.pm

Log:
pool for ra.

Modified: SVN-PropDB/lib/Prophet/Sync/Source/SVN.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Sync/Source/SVN.pm	(original)
+++ SVN-PropDB/lib/Prophet/Sync/Source/SVN.pm	Wed Apr  2 07:50:35 2008
@@ -16,7 +16,7 @@
 use Prophet::ChangeSet;
 use Prophet::Conflict;
 
-__PACKAGE__->mk_accessors(qw/url ra prophet_handle ressource is_resdb/);
+__PACKAGE__->mk_accessors(qw/url ra prophet_handle ressource is_resdb pool/);
 
 our $DEBUG = $Prophet::Handle::DEBUG;
 
@@ -32,8 +32,11 @@
     my $self = shift;
     my ( $baton, $ref ) = SVN::Core::auth_open_helper( Prophet::Sync::Source::SVN::Util->get_auth_providers );
     my $config = Prophet::Sync::Source::SVN::Util->svnconfig;
+    my $pool = SVN::Pool->new;
+    
+    $self->pool($pool);
 eval {
-    $self->ra( SVN::Ra->new( url => $self->url, config => $config, auth => $baton ));
+    $self->ra( SVN::Ra->new( url => $self->url, config => $config, auth => $baton, pool => $self->pool ));
 }; Carp::confess $@ if $@;
     if ( $self->url =~ /^file:\/\/(.*)$/ ) {
         $self->prophet_handle( Prophet::Handle->new( { repository => $1, db_root => '_prophet' }));