diff options
Diffstat (limited to 'perllib')
-rw-r--r-- | perllib/phash.ph | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/phash.ph b/perllib/phash.ph index 24f6a4f5..4efc6519 100644 --- a/perllib/phash.ph +++ b/perllib/phash.ph @@ -83,7 +83,7 @@ sub gen_hash_n($$$$) { my $e = ${$href}{$k}; my $xkey; - if (defined($xkey = $edges{$pf})) { + if (defined($xkey = $edges{$pf}) && ${$href}{$xkey} != $e) { if (defined($run)) { print STDERR "$run: Collision: $pf: $k with $xkey\n"; } |