phash: allow collisions if the hash target is the same

If the hash target is the same value, we can permit collisions.  This
isn't relevant for the current applications of the hash generator, but
is useful for cases where one have a number of sources for the same
target.  It's easy to check, either way.

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";
 	    }