[svk-commit] r2245 - in trunk: lib/SVK

[nobody at bestpractical.com]

Author: clkao
Date: Wed Dec 20 08:14:42 2006
New Revision: 2245

Modified:
   trunk/   (props changed)
   trunk/lib/SVK/Mirror.pm

Log:
 r7403 at ubuntu (orig r2239):  clkao | 2006-12-14 14:17:59 +0800
 prevent leak on long-running lock waiting.


Modified: trunk/lib/SVK/Mirror.pm
==============================================================================
--- trunk/lib/SVK/Mirror.pm	(original)
+++ trunk/lib/SVK/Mirror.pm	Wed Dec 20 08:14:42 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);