From 6a858397936095b56100e4ad41374f166a20375a Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Tue, 3 Feb 2009 17:31:35 +0000 Subject: [PATCH 1/1] wow, that was stupid :) --- match_fingerprints | 6 +----- 1 files changed, 1 insertions(+), 5 deletions(-) diff --git a/match_fingerprints b/match_fingerprints index c1dbcca..33919c6 100755 --- a/match_fingerprints +++ b/match_fingerprints @@ -14,8 +14,7 @@ my @recs = (); # fingerprints belonging to each record my %seen = (); # records we've already seen my $lastscore = 0; # previous fingerprint's score -my %leads = (); # error-checking hashes -my %subs = (); +my %subs = (); # error-checking hashe open FP, '<', $ARGV[0] or die "Can't open input file: $!\n"; @@ -92,9 +91,6 @@ sub dump_records { # check for dupes and die if they exist die "Collision: dupe sub record $_\n" if $subs{$_}; $subs{$_} = 1; - die "Collision: dupe lead record ", $rec->{id}, "\n" - if $leads{ $rec->{id} }; - $leads{ $rec->{id} } = 1; die "Collision: lead in sub list ", $rec->{id}, "\n" if $subs{ $rec->{id} }; -- 1.7.2.5