--- ServerTACACSPLUS.pm.orig	2022-07-05 11:30:22.367640827 +0200
+++ ServerTACACSPLUS.pm	2022-07-05 11:32:41.416137980 +0200
@@ -270,7 +270,7 @@
     # etc. disconnect immediately and this often catches them.
     unless (getpeername($newsocket))
     {
-	$self->log($main::LOG_WARNING, "$self->{log_class_identifier} Connection from $peeraddr port $peerport was immediately gone: getpeername failed: $!");
+	$self->log($self->{DisconnectTraceLevel}, "$self->{log_class_identifier} Connection from $peeraddr port $peerport was immediately gone: getpeername failed: $!");
 	return;
     }