Revision d33e506e
Von Jan Büren vor mehr als 7 Jahren hinzugefügt
| SL/File/Backend/Filesystem.pm | ||
|---|---|---|
| 78 | 78 |
my ($self, %params) = @_; |
| 79 | 79 |
die "no dbfile" unless $params{dbfile};
|
| 80 | 80 |
die "unknown version" if $params{version} &&
|
| 81 |
($params{version} < 0 || $params{version} > $params{dbfile}->backend_data) ;
|
|
| 82 |
my $path = $self->_filesystem_path($params{dbfile},$params{version});
|
|
| 81 |
($params{version} < 0 || $params{version} > $params{dbfile}->backend_data);
|
|
| 82 |
my $path = $self->_filesystem_path($params{dbfile}, $params{version});
|
|
| 83 |
|
|
| 83 | 84 |
die "No file found at $path. Expected: $params{dbfile}{file_name}, file.id: $params{dbfile}{id}" if !-f $path;
|
| 84 | 85 |
|
| 85 | 86 |
my @st = stat($path); |
Auch abrufbar als: Unified diff
Kosmetik