From aafd54016bd01fa5b3dc717dbb9cb267f5376dc4 Mon Sep 17 00:00:00 2001 From: djk Date: Sat, 10 Jun 2000 14:27:32 +0000 Subject: [PATCH] store the correct duptext for PC11 --- perl/DXProt.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index ecb6cfc6..aacd5660 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -240,7 +240,7 @@ sub normal # do some de-duping my $freq = $field[1] - 0; - my $dupkey = "$freq$field[2]$d$text$spotter"; + my $dupkey = "$freq$field[2]$d$duptext$spotter"; if ($spotdup{$dupkey}) { dbg('chan', "Duplicate Spot ignored\n"); return; -- 2.43.0