[svk-commit] r2239 - branches/2.0-releng/lib/SVK

[nobody at bestpractical.com]

Author: clkao
Date: Thu Dec 14 01:17:59 2006
New Revision: 2239

Modified:
   branches/2.0-releng/lib/SVK/Mirror.pm

Log:
prevent leak on long-running lock waiting.

Modified: branches/2.0-releng/lib/SVK/Mirror.pm
==============================================================================
--- branches/2.0-releng/lib/SVK/Mirror.pm	(original)
+++ branches/2.0-releng/lib/SVK/Mirror.pm	Thu Dec 14 01:17:59 2006
@@ -266,7 +266,9 @@
     # without corrupting repository.
 LOCKED:
     {
+	my $pool = SVN::Pool->new_default;
         while (1) {
+	    $pool->clear;
             my $who = $fs->revision_prop( 0, $token ) or last LOCKED;
 	    last if $who eq $content;
 	    $lock_message->($self, $who);