From 2e8072a50c0521b5a9b1de423d9e633114d4acc0 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 14 Jun 2024 22:34:06 +0100 Subject: [PATCH] add extra spot dupe debugging --- perl/Spot.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/Spot.pm b/perl/Spot.pm index d04ece05..d25ed122 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -540,7 +540,7 @@ sub dup $ldupkey = $oldstyle ? "X|$call|$by|$node|$freq|$d|$text" : "X|$call|$by|$node|$qrg|$nd|$text"; $t = DXDupe::find($ldupkey); - dbg("Spot::dup ldupkey $ldupkey t '$t'") if isdbg('spotdup'); + dbg("Spot::dup ldupkey $ldupkey t '$t'" . ($t?' DUPE':' NEW')) if isdbg('spotdup'); $dtext .= ' DUPE' if $t; dbg("text transforms: $dtext") if length $text && isdbg('spottext'); return 1 if $t > 0; @@ -552,7 +552,7 @@ sub dup if (length $otext && $otext ne $text) { $ldupkey = $oldstyle ? "X|$freq|$call|$by|$otext" : "X|$qrg|$call|$by|$otext"; $t = DXDupe::find($ldupkey); - dbg("Spot::dup (OTEXT) ldupkey $ldupkey t '$t'") if isdbg('spotdup'); + dbg("Spot::dup (OTEXT) ldupkey $ldupkey t '$t'" . ($t?' DUPE':' NEW')) if isdbg('spotdup'); if (isdbg('spottext')) { $dtext .= sprintf q{ DUBIOUS '%s'}, join '', @dubious if @dubious; $dtext .= ' DUPE (OTEXT)' if $t; -- 2.43.0