Fix dup detection
This commit is contained in:
parent
da899cbf29
commit
42bd431dca
|
@ -12,6 +12,7 @@ sub collect {
|
||||||
$atime,$mtime,$ctime,$blksize,$blocks) = lstat($_);
|
$atime,$mtime,$ctime,$blksize,$blocks) = lstat($_);
|
||||||
return if $seen{"$dev:$ino"};
|
return if $seen{"$dev:$ino"};
|
||||||
$hist{$size}++;
|
$hist{$size}++;
|
||||||
|
$seen{"$dev:$ino"} = 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
find(\&collect, @ARGV ? @ARGV : ("."));
|
find(\&collect, @ARGV ? @ARGV : ("."));
|
||||||
|
|
Loading…
Reference in New Issue