my($m, $backupNum, $share, $dir) = @_;
my($i, $level);
- print STDERR "dirCache($backupNum, $share, $dir)\n";
+ #print STDERR "dirCache($backupNum, $share, $dir)\n";
$dir = "/$dir" if ( $dir !~ m{^/} );
$dir =~ s{/+$}{};
return if ( $m->{num} == $backupNum
# 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;
+ #warn "# visit_backup_ids = ",dump @visit_backup_ids;
#
# merge backups, starting at the requested one, and working
if ( $m->{dirOpts}->{only_increment} && $share ) {
if ( defined $previous_increment_entry->{$fileUM}
&& $previous_increment_entry->{$fileUM}->{inode} == $entry->{inode} ) {
- warn "# -- $backupNum $fileUM\n";
+ #warn "# -- $backupNum $fileUM\n";
$previous_increment_entry->{$fileUM}->{_hide}++;
next;
} elsif ( $backupNum < $increment_backupNum ) {
- warn "# << $backupNum $fileUM\n";
+ #warn "# << $backupNum $fileUM\n";
$previous_increment_entry->{$fileUM}->{_hide}++;
next;
} else {
- warn "# ++ $backupNum $fileUM ",dump $entry;
+ #warn "# ++ $backupNum $fileUM ",dump $entry;
$previous_increment_entry->{$fileUM} = $entry;
}
} else {
# ASA create increment
if ( $m->{dirOpts}->{only_increment} ) {
- warn "# previous_increment_entry = ",dump $previous_increment_entry;
+ #warn "# previous_increment_entry = ",dump $previous_increment_entry;
foreach my $file ( grep { exists $previous_increment_entry->{$_}->{_hide} } keys %$previous_increment_entry ) {
delete $m->{files}{$file};
- warn "OLD $file\n";
+ #warn "OLD $file\n";
}
}