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

[nobody at bestpractical.com]

Author: clkao
Date: Tue Dec 12 23:26:54 2006
New Revision: 2233

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

Log:
_lock_content is now a separate method.

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	Tue Dec 12 23:26:54 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;