X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FBackupPC%2FView.pm;h=93d4e0288a327a2fc799c15a980159d19e742552;hb=4271e4fc3abee4aaa0326cf76d3dc9ad36a3ffe4;hp=725ecfde319326c4c0fa594d913a0c402427d84c;hpb=b0b1fbd99a36f1fd3a40f7a25edf99d029667f40;p=BackupPC.git

diff --git a/lib/BackupPC/View.pm b/lib/BackupPC/View.pm
index 725ecfd..93d4e02 100644
--- a/lib/BackupPC/View.pm
+++ b/lib/BackupPC/View.pm
@@ -76,7 +76,7 @@ sub dirCache
     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
@@ -109,7 +109,7 @@ sub dirCache
 	# 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
@@ -189,15 +189,15 @@ sub dirCache
 		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 {
@@ -290,10 +290,10 @@ sub dirCache
 
 	# 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";
 		}
 	}