replace missing $key in pc11 INPUT dbg line

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 5189746aa5ba35f28e62f649c686618f6720d68b..256f296774653c9246857a3de043af4f70cb98b9 100644 (file)
--- 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
                        }