Subject: | File::Find::Duplicates checks for MD5 but it's report doesn't show it |
File::Find::Rule constructs a duplicate list as keyed by size only, and so, even if files have a unique MD5, which is accounted for in the actual traversal, the user can't extract that info without recomputing the MD5 themselves.
push @{$dupes{$size}}, @{$md5{$hash}}
if (@{$md5{$hash}} > 1);
should be changed into
push @{$dupes{$size}{$md5}}, @{$md5{$hash}}
if (@{$md5{$hash}} > 1);
IMHO. But this breaks backward compatibility.