[svk-commit] r2129 - trunk/lib/SVK

[clkao at bestpractical.com]

Author: clkao
Date: Fri Nov 10 09:13:48 2006
New Revision: 2129

Modified:
   trunk/lib/SVK/Mirror.pm

Log:
assume mirror is locked if token is ours.

Modified: trunk/lib/SVK/Mirror.pm
==============================================================================
--- trunk/lib/SVK/Mirror.pm	(original)
+++ trunk/lib/SVK/Mirror.pm	Fri Nov 10 09:13:48 2006
@@ -215,6 +215,7 @@
     {
         while (1) {
             my $who = $fs->revision_prop( 0, $token ) or last LOCKED;
+	    last if $who eq $content;
 	    $lock_message->($self, $who);
             sleep 1;
         }