From: cjwatson <>
Date: Mon, 26 May 2003 01:25:37 +0000 (-0800)
Subject: [project @ 2003-05-25 18:25:37 by cjwatson]
X-Git-Tag: release/2.6.0~888
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=406c614da9437f9db92c4a19b2dd1b5b94e58140;p=debbugs.git

[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 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 {