undef $digest_st;
}
}
+ print STDERR "\b";
+
+ # Which file are we keeping?
+ my $keep_file;
# If digest link exists, link it to file
if ($digest_st) {
# Old, replace input with old file
print STDERR '-';
link_files($digest_link, $file);
+ $keep_file = $digest_link;
} else {
# New, add input to digest
print STDERR '+';
link_files($file, $digest_link);
+ $keep_file = $file;
}
# A link to the inode indicates we are done, so do it last
- link_files($file, $inode_link);
+ print STDERR '_';
+ link_files($keep_file, $inode_link);
}
};