if ($debug) {
print STDERR " {{ CHECK: ${host}:${share}#${num} and $filename";
} else {
- print " check";
+ print " check $filename";
}
my @tar_parts;
my $backup_part;
- print " reading";
+ print " reading" if ($opt{d});
foreach my $tarfilename (@tar_parts) {