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 25c6d96..93655f6 100644 (file)
--- 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: " . $@)};
       }
     }
   }