From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 14 Jun 2024 21:34:06 +0000 (+0100)
Subject: add extra spot dupe debugging
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=2e8072a50c0521b5a9b1de423d9e633114d4acc0;p=spider.git

add extra spot dupe debugging
---

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;