my $previous_increment_entry;
my $increment_backupNum = $backupNum; # used in loop
+ my @visit_backup_ids;
+ my $i;
+ for ( $i = $m->{idx} ; $i >= 0 ; $i-- ) {
+
+ # we need two incremental backups to detect changes
+ next if $m->{backups}[$i]{level} >= $level && $#visit_backup_ids > 0;
+
+ push @visit_backup_ids, $i;
+
+ # for first full backup we need another full to detect changes
+ last if $m->{backups}[$i]{level} == 0 && $#visit_backup_ids > 0;
+ }
+ warn "# visit_backup_ids = ",dump @visit_backup_ids;
#
# merge backups, starting at the requested one, and working
# backwards until we get to level 0.
#
$m->{mergeNums} = [];
- for ( $i = $m->{idx} ; $level > 0 && $i >= 0 ; $i-- ) {
+# for ( $i = $m->{idx} ; $level > 0 && $i >= 0 ; $i-- ) {
+ for my $i ( @visit_backup_ids ) {
#print(STDERR "Do $i ($m->{backups}[$i]{noFill},$m->{backups}[$i]{level})\n");
#
# skip backups with the same or higher level
#
- #next if ( $m->{backups}[$i]{level} >= $level );
- # FIXME ASA skip all but first?
+ #next if ( $m->{backups}[$i]{level} >= $level ); # ASA - visit_backup_ids
$level = $m->{backups}[$i]{level};
$backupNum = $m->{backups}[$i]{num};