X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/435dc011059c6df23c6ee409fa556da2a7ea40e3..c5dc49746255a5a49870a40981f3b782792e708c:/SL/File/Backend/Filesystem.pm diff --git a/SL/File/Backend/Filesystem.pm b/SL/File/Backend/Filesystem.pm index fe8604c0b..45254c9d5 100644 --- 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 "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;