From: Bernd Bleßmann <bernd@kivitendo-premium.de>
Date: Wed, 27 Jan 2021 15:45:43 +0000 (+0100)
Subject: SL::File: Debug-Warnung ausgeben, wenn eine Version nicht geholt werden kann
X-Git-Tag: kivitendo-mebil_0.1-0~9^2~493
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=d1e6708226f9fd63eee5fe1243896acdc751aa33;p=kivitendo-erp.git

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.
---

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: " . $@)};
       }
     }
   }