die für eine Backend-Funktion (Mini-DMS) gesprächiger gemacht

[mfinanz.git] / SL / File / Backend / Filesystem.pm

diff --git a/SL/File/Backend/Filesystem.pm b/SL/File/Backend/Filesystem.pm
index fe8604c0be6163bc2940513808a92c9944614a47..45254c9d55aa73cf54afb984d760c58b0931a090 100644 (file)
--- a/SL/File/Backend/Filesystem.pm
+++ b/SL/File/Backend/Filesystem.pm
@@ -80,7 +80,8 @@ sub get_mtime {
   die "unknown version" if $params{version} &&
                           ($params{version} < 0 || $params{version} > $params{dbfile}->backend_data) ;
   my $path = $self->_filesystem_path($params{dbfile},$params{version});
   die "unknown version" if $params{version} &&
                           ($params{version} < 0 || $params{version} > $params{dbfile}->backend_data) ;
   my $path = $self->_filesystem_path($params{dbfile},$params{version});

-  die "no file found in backend get_mtime" if !-f $path;
+  die "No file found at $path. Expected: $params{dbfile}{file_name}, file.id: $params{dbfile}{id}" if !-f $path;
+

   my @st = stat($path);
   my $dt = DateTime->from_epoch(epoch => $st[9])->clone();
   return $dt;
   my @st = stat($path);
   my $dt = DateTime->from_epoch(epoch => $st[9])->clone();
   return $dt;