From d1e6708226f9fd63eee5fe1243896acdc751aa33 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= <bernd@kivitendo-premium.de>
Date: Wed, 27 Jan 2021 16:45:43 +0100
Subject: [PATCH] SL::File: Debug-Warnung ausgeben, wenn eine Version nicht
 geholt werden kann

Fehler kann auftreten, wenn z.B. die Datei im Dateisystem nicht lesbar ist.
---
 SL/File.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/File.pm b/SL/File.pm
index 25c6d96c1..93655f6f7 100644
--- a/SL/File.pm
+++ b/SL/File.pm
@@ -83,7 +83,7 @@ sub get_all_versions {
           $main::lxdebug->message(LXDebug->DEBUG2(), "clone version=".$clone->version." mtime=". $clone->mtime);
           push @versionobjs, $clone;
           1;
-        }
+        } or do {$::lxdebug->message(LXDebug::WARN(), "clone for version=".($maxversion-$version+1) . "failed: " . $@)};
       }
     }
   }
-- 
2.20.1