From 5d1d9d0ed0577e2459108dba8c82ab3ed591da10 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 12 Jan 2023 17:09:03 +0000
Subject: [PATCH] replace missing $key in pc11 INPUT dbg line

---
 perl/DXProtHandle.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
 			}
 
-- 
2.34.1