From 5ce2afc338f59f395e97da16452a0a4a673134f8 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Sat, 4 Jun 2022 18:08:34 +0200
Subject: named: declare the right variable

---
 named | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/named b/named
index 7280678..98cd3a6 100644
--- a/named
+++ b/named
@@ -57,7 +57,7 @@ my (
 %DeniedQueryNoCache,    %DeniedTCPClient,       %DeniedZoneTransfers,
 %FailedZoneTransfers,   %FormErr,               %InsecUpdate,
 %JournalFail,           %LameServer,            %MasterFailure,
-%NetworkUnreachable,    %NonAuthoritative,      %NTAs, %RetryLimit,
+%NetworkUnreachable,    %NonAuthoritative,      %RetryLimit,
 %UnexpRCODE,            %UpdateDenied,          %UpdateForwardingDenied,
 %ZoneExpired,           %ZoneFileErrors,        %ZoneLoaded,
 %ZoneReceivedNotify,    %ZoneRefusedNotify,     %ZoneRemoved,
@@ -68,7 +68,7 @@ my (
 %GeoIPError,            %HUR,                   %Hints,
 %LimitSlip,             %NError,                %NUR,
 %NoSOA,                 %OtherList,             %StartLog,
-%UnknownCCCommands,
+%UnknownCCCommands,     %NTAs,
 );
 # Avoid "Use of uninitialized value" warning messages.
 sub ValueOrDefault {
@@ -475,7 +475,7 @@ while (defined(my $ThisLine = <STDIN>)) {
             $UpdateDenied{"$Rhost ($Error)"}++;
       }
       # ignore rest of samba4 dlz entries for now
-   } elsif ( ($NTA, $View) = ($ThisLine =~ /^added NTA '([^']+)' \(\d+ sec\) in view '([^']+)'$/)) {
+   } elsif ( my ($NTA, $View) = ($ThisLine =~ /^added NTA '([^']+)' \(\d+ sec\) in view '([^']+)'$/)) {
       $NTAs{"$View: $NTA"}++;
    } else {
       # Report any unmatched entries...
-- 
cgit v1.2.3-54-g00ecf