[project @ 2003-05-25 18:25:37 by cjwatson]

Give more information in "failed to close/remove lock file" error messages.

diff --git a/scripts/errorlib.in b/scripts/errorlib.in
index b3a7dc622ffa1360733d7bba73bcbe706c09e978..0d13b7b83f457823bbd802ab354e67ec0d5a931b 100755 (executable)
--- a/scripts/errorlib.in
+++ b/scripts/errorlib.in
@@ -1,5 +1,5 @@
 # -*- perl -*-
-# $Id: errorlib.in,v 1.24 2003/05/25 17:19:05 cjwatson Exp $
+# $Id: errorlib.in,v 1.25 2003/05/25 18:25:37 cjwatson Exp $
 
 sub F_SETLK { 6; } sub F_WRLCK{ 1; }
 $flockstruct= 'sslll'; # And there ought to be something for this too.
@@ -152,8 +152,8 @@ sub filelock {
 sub unfilelock {
     local ($lockfile) = pop(@filelocks);
     pop(@cleanups);
-    eval 'close(FLOCK'.($#filelocks+1).');' || warn "failed to close lock file: $!";
-    unlink($lockfile) || warn "failed to remove lock file: $!";
+    eval 'close(FLOCK'.($#filelocks+1).');' || warn "failed to close lock file $lockfile: $!";
+    unlink($lockfile) || warn "failed to remove lock file $lockfile: $!";
 }
 
 sub quit {