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

[nobody at bestpractical.com]

Author: clkao
Date: Sat May 24 22:51:50 2008
New Revision: 2906

Modified:
   trunk/lib/SVK/XD.pm

Log:
in lock message, show where it was actually locked at.

Modified: trunk/lib/SVK/XD.pm
==============================================================================
--- trunk/lib/SVK/XD.pm	(original)
+++ trunk/lib/SVK/XD.pm	Sat May 24 22:51:50 2008
@@ -342,8 +342,9 @@
 
 sub lock {
     my ($self, $path) = @_;
-    if ($self->{checkout}->get ($path, 1)->{lock}) {
-	die loc("%1 already locked, use 'svk cleanup' if lock is stalled\n", $path);
+    if (my $lock = $self->{checkout}->get ($path, 1)->{lock}) {
+        my @paths = $self->{checkout}->find('', {lock => $lock});
+	die loc("%1 already locked at %2, use 'svk cleanup' if lock is stalled\n", $path, $paths[0]);
     }
     $self->{checkout}->store ($path, {lock => $$});
     $self->{modified} = 1;