+ if ($params{version}) {
+ for my $version ( $last_version+1 .. $params{dbfile}->backend_data) {
+ my $from = $self->_filesystem_path($params{dbfile},$version);
+ my $to = $self->_filesystem_path($params{dbfile},$version - 1);
+ die "file not exists in backend delete" unless -f $from;
+ rename($from,$to);
+ }
+ $params{dbfile}->backend_data($params{dbfile}->backend_data-1);
+ }
+ elsif ($params{all_but_notlast}) {