From 406c614da9437f9db92c4a19b2dd1b5b94e58140 Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Sun, 25 May 2003 17:25:37 -0800
Subject: [PATCH] [project @ 2003-05-25 18:25:37 by cjwatson] Give more
 information in "failed to close/remove lock file" error messages.

---
 scripts/errorlib.in | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scripts/errorlib.in b/scripts/errorlib.in
index b3a7dc62..0d13b7b8 100755
--- 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 {
-- 
2.39.5