From 334c5c92e50c81d3d62f5b982a160c2985b148e4 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 14 Mar 2025 11:10:01 +0000 Subject: [PATCH] some cosmetic debug changes --- perl/Spot.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/Spot.pm b/perl/Spot.pm index 4c88e0b1..a562e454 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -550,7 +550,7 @@ sub dup_add $ldupkey = "X$call|$by|$qrg|$text"; $t = DXDupe::find($ldupkey); $storet = !$t && !$just_find ? ' STORE=>'.htime($main::systime+$dupage) :''; - dbg("Spot::add_dup: $check (NORM TEXT) ldupkey $ldupkey $storet" . ($t?(' DUPE=>'.htime($t)) :'')) if isdbg('spotdup'); + dbg("Spot::add_dup: $check (NORM TEXT) $ldupkey $storet" . ($t?(' DUPE=>'.htime($t)) :'')) if isdbg('spotdup'); $dtext .= ' DUPE' if $t; dbg("text transforms: $dtext") if length $text && isdbg('spottext'); @@ -567,7 +567,7 @@ sub dup_add $ldupkey = "X$call|$by|$qrg"; $t = DXDupe::find($ldupkey); $storet = !$t && !$just_find ? ' STORE=>'.htime($main::systime+$store_nocomment) :''; - dbg("Spot::add_dup: $check (NOTEXT) ldupkey $ldupkey $storet". ($t?(' (DUPE=>'.htime($t)) :'')) if isdbg('spotdup'); + dbg("Spot::add_dup: $check (NOTEXT) $ldupkey $storet". ($t?(' (DUPE=>'.htime($t)) :'')) if isdbg('spotdup'); # see above if ($t > 0) { # DXDupe::add($ldupkey, $main::systime+$dupage) unless $just_find; -- 2.43.0