From 53e59f680f91b11e7d9e9a6f56e0a24a2c2a0035 Mon Sep 17 00:00:00 2001
From: "Andreas J. Koenig" <andk@cpan.org>
Date: Thu, 17 Feb 2011 13:57:20 +0100
Subject: [PATCH] introduce a warning if we find a lockdirectory without an
 openable process file

---
 lib/File/Rsync/Mirror/Recentfile.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/File/Rsync/Mirror/Recentfile.pm b/lib/File/Rsync/Mirror/Recentfile.pm
index f057eeb..7d69610 100644
--- a/lib/File/Rsync/Mirror/Recentfile.pm
+++ b/lib/File/Rsync/Mirror/Recentfile.pm
@@ -838,6 +838,8 @@ sub lock {
                 sleep 1;
                 last GETLOCK;
             }
+        } else {
+            warn "Warning: unknown process holds a lock in '$lockdir', waiting..." unless $have_warned{unknown}++;
         }
         Time::HiRes::sleep 0.01;
         if (time - $start > $locktimeout) {
-- 
2.11.4.GIT