projects
/
dupemerge
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix whitespace in usage message (no tabs please)
[dupemerge]
/
faster-dupemerge
diff --git
a/faster-dupemerge
b/faster-dupemerge
index 232c6bd3474958f8bd097187b23ec87457104a29..44d0e91a929c361059b4e5a7df6f0ed6252d4699 100755
(executable)
--- a/
faster-dupemerge
+++ b/
faster-dupemerge
@@
-155,6
+155,7
@@
hard links).
S, s - lstat(2) (see source for details)
U - unlink(2)
. - all inodes with similar attributes done
S, s - lstat(2) (see source for details)
U - unlink(2)
. - all inodes with similar attributes done
+ (123456) - current file size in bytes
--sort pass next options (up to --) to sort command
--sort pass next options (up to --) to sort command
@@
-185,7
+186,7
@@
while ($#ARGV >= 0) {
} elsif ($arg eq '--zeros') {
$collapse_zero = 1;
} elsif ($arg eq '--trust' || $arg eq '--skip-compare') {
} elsif ($arg eq '--zeros') {
$collapse_zero = 1;
} elsif ($arg eq '--trust' || $arg eq '--skip-compare') {
- $skip_compare_preference = 1;
+ $skip_compare
s = $skip_compare
_preference = 1;
} elsif ($arg =~ /^--skip-hash(?:=(\d+)([KkMmGgTt]?))?$/os) {
my ($quantity, $unit) = ($1, $2);
$unit ||= '_';
} elsif ($arg =~ /^--skip-hash(?:=(\d+)([KkMmGgTt]?))?$/os) {
my ($quantity, $unit) = ($1, $2);
$unit ||= '_';
@@
-599,7
+600,7
@@
while (<FIND>) {
print STDERR "weak_key=$weak_key inode=$inode name=$name\n" if $debug;
print STDERR "weak_key=$weak_key inode=$inode name=$name\n" if $debug;
- if ($size >= $skip_hashes_threshold) {
+ if ($s
kip_hashes_threshold && $s
ize >= $skip_hashes_threshold) {
$skip_hashes = 1;
$skip_compares = 0;
} else {
$skip_hashes = 1;
$skip_compares = 0;
} else {