From e11cbc59392fe1d2c9f2212ce1b4f461932dfe87 Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 31 Aug 2005 20:00:40 +0000 Subject: [PATCH] fixed the problem with dupes --- perl/Spot.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/perl/Spot.pm b/perl/Spot.pm index 9a4b9724..8972447b 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -350,9 +350,9 @@ sub dup my $ldupkey = "X$freq|$call|$by|$text"; my $t = DXDupe::find($ldupkey); return 1 if $t && $t - $main::systime > 0; - if ($otext) { - DXDupe::add($ldupkey, $main::systime+$dupage); - $otext = substr($otext, 0, $duplth) if length $otext > $duplth; + DXDupe::add($ldupkey, $main::systime+$dupage); + $otext = substr($otext, 0, $duplth) if length $otext > $duplth; + if ( length $otext && $otext ne $text) { $ldupkey = "X$freq|$call|$by|$otext"; $t = DXDupe::find($ldupkey); return 1 if $t && $t - $main::systime > 0; -- 2.43.0