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

[nobody at bestpractical.com]

Author: clkao
Date: Tue Dec 12 23:30:03 2006
New Revision: 2236

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

Log:
 r7397 at ubuntu (orig r2233):  clkao | 2006-12-13 12:26:54 +0800
 _lock_content is now a separate method.


Modified: trunk/lib/SVK/Mirror.pm
==============================================================================
--- trunk/lib/SVK/Mirror.pm	(original)
+++ trunk/lib/SVK/Mirror.pm	Tue Dec 12 23:30:03 2006
@@ -252,11 +252,13 @@
     return "svm:lock:$token";
 }
 
+sub _lock_content { hostname . ':' . $$ };
+
 sub lock {
     my ($self)  = @_;
     my $fs      = $self->repos->fs;
     my $token   = $self->_lock_token;
-    my $content = hostname . ':' . $$;
+    my $content = $self->_lock_content;
     my $where = join( ' ', ( caller(0) )[ 0 .. 2 ] );
 
     my $lock_message = $self->_lock_message;