From 88d05819fa02d6312e2cb18a70dc8bfc329ffda5 Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Tue, 9 Dec 2008 04:08:25 +0000 Subject: [PATCH] compress: no, %used is still needed to suppress the varying fps on a subordinate record (its original purpose, sigh) --- compress_fingerprints | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/compress_fingerprints b/compress_fingerprints index c996ef7..f0b9374 100755 --- a/compress_fingerprints +++ b/compress_fingerprints @@ -95,7 +95,7 @@ Writes out a 2-column file of lead and subordinate records. =cut sub dump_records { -# my %used = (); + my %used = (); open OUT, '>', $conf->{output} or die "Can't open ", $conf->{output}, "$!\n"; for my $id (keys %recs) { @@ -104,8 +104,8 @@ sub dump_records { for my $sha1 ( keys %{$recs{$id}} ) { for my $subid ( @{$fps{$sha1}{recs}} ) { next if ($id == $subid); -# next if defined $used{$subid}; -# $used{$subid} = 1; + next if defined $used{$subid}; + $used{$subid} = 1; print OUT "$id\t$subid\n"; } } -- 1.7.2.5