From e6cbd19e5a9d0b495ecc90b66a22d69e93190c02 Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Mon, 8 Dec 2008 23:07:58 +0000 Subject: [PATCH] compress: add leads and subs to used hash --- compress_fingerprints | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/compress_fingerprints b/compress_fingerprints index 6bc9361..b5f4470 100755 --- a/compress_fingerprints +++ b/compress_fingerprints @@ -87,9 +87,7 @@ sub rank_fingerprint { =head2 dump_records -Writes out a 2-column file of lead and subordinate records. If -posttest is enabled, a scan is also done to ensure that no recordid -appears as both a subordinate and lead. +Writes out a 2-column file of lead and subordinate records. =cut @@ -98,6 +96,8 @@ sub dump_records { open OUT, '>', $conf->{output} or die "Can't open ", $conf->{output}, "$!\n"; for my $id (keys %recs) { + next if defined $used{$id}; + $used{$id} = 1; next unless $recs{$id}{lead}; for my $sha1 ( keys %{$recs{$id}} ) { for my $subid ( @{$fps{$sha1}{recs}} ) { -- 1.7.2.5