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

       }
     }
   }
       }
     }
   }