# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1468332545 -7200
# Node ID 1e2d9d3291925d3a8dd2fffa8deaf5d6cef1332f
# Parent  488c55f6e894b849e23db2389afc8cd431181c01
Fix nzf parser for comment lines

diff -r 488c55f6e894 -r 1e2d9d329192 lib/Nagios/Check/DNS/delegation.pm
--- a/lib/Nagios/Check/DNS/delegation.pm	Thu Oct 15 15:09:08 2015 +0200
+++ b/lib/Nagios/Check/DNS/delegation.pm	Tue Jul 12 16:09:05 2016 +0200
@@ -42,6 +42,7 @@
         exit 0;
     };
     while (<$z>) {
+        /^#/ and next;         # comment
         state $line;
         s/^\s*(.*?)\s*$/$1 /;
         chomp($line .= $_);    # continuation line
@@ -51,7 +52,7 @@
             $line = '';
         }
     }
-    return grep { 
+    return grep {
 	# FIXME: 172.0 .. 172.31 is missing
 	not /\b(?:0|127|10|168\.192|255)\.in-addr\.arpa$/ and
 	not /^localhost$/;
@@ -155,7 +156,7 @@
         local $" = ', ';
         die sprintf "NS differ (%s: @our) vs (public: @public)\n",
             $is_override ? 'override' : 'our';
-    
+
     }
 
     @ns = uniq sort @our, @public;
@@ -171,7 +172,7 @@
     if (uniq(map { /(\d+)/ } @serials) != 1) {
         die "serials do not match: @serials\n";
     }
-    
+
     $serials[0] =~ /(\d+)/;
     return $1;
 }
@@ -181,7 +182,7 @@
     my $opt_reference = '127.0.0.1';
     my $opt_progress  = -t;
     my ($opt_override)= grep { -f } '/etc/check_dns-delegation/override';
-                        
+
 
     GetOptionsFromArray(
         \@argv,
@@ -208,9 +209,9 @@
         state $i++;
         print STDERR "$domain ($i/$all) " if $opt_progress;
 
-        my @ns = eval { ns_ok($domain, $override{$domain} ? $override{$domain} : [$opt_reference], 
+        my @ns = eval { ns_ok($domain, $override{$domain} ? $override{$domain} : [$opt_reference],
                               $override{$domain}) };
-	if ($@) { 
+	if ($@) {
             $CRITICAL{$domain} = $@;
             say STDERR 'fail(ns)' if $opt_progress;
             next;