if ( defined($attr) && defined(my $a = $attr->get($fileUM)) ) {
$m->{files}{$fileUM} = $a;
+ $previous_increment_entry->{$fileUM}->{_dir}++ if $a->{type} == BPC_FTYPE_DIR; # ASA
#
# skip directories in earlier backups (each backup always
# has the complete directory tree).
# ASA create increment
if ( $m->{dirOpts}->{only_increment} ) {
- #warn "# previous_increment_entry = ",dump $previous_increment_entry;
- foreach my $file ( grep { exists $previous_increment_entry->{$_}->{_hide} } keys %$previous_increment_entry ) {
+ warn "# previous_increment_entry = ",dump $previous_increment_entry;
+ foreach my $file ( grep { exists $previous_increment_entry->{$_}->{_hide} && ! exists $previous_increment_entry->{$_}->{_dir} } keys %$previous_increment_entry ) {
delete $m->{files}{$file};
#warn "OLD $file\n";
}