From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 12 Jan 2023 17:09:03 +0000 (+0000)
Subject: replace missing $key in pc11 INPUT dbg line
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=5d1d9d0ed0577e2459108dba8c82ab3ed591da10;p=spider.git

replace missing $key in pc11 INPUT dbg line
---

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 5189746a..256f2967 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -288,7 +288,7 @@ sub handle_11
 			}
 
 			if ($pc11_saved{$key}) {
-				dbg("DUPE $pc->[0] $self->{call } key: is saved, ignored") if isdbg("pc11");
+				dbg("DUPE $pc->[0] $self->{call } key: $key is saved, ignored") if isdbg("pc11");
 				return;		# because it's a dup
 			}