diff options
-rw-r--r-- | named | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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... |