print STDERR "NOTE: no files found for $Host:$ShareName, increment $Num\n" if ($opts{v});
# remove temporary files if there are no files
rmtree($tar_path);
+
+ my $sth = $dbh->prepare(qq{
+ update backups set inc_size = 0, parts = 0, inc_deleted = true
+ where id = ?
+ });
+ $sth->execute($backup_id);
+
}
#