# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1466519689 -7200
# Node ID 05ef007278eb75f2e467a98ab17904ecc1214eea
# Parent  765b680bcc0d51f5cf0a6e064a1f614dab31463e
Fix dane_pattern

diff -r 765b680bcc0d -r 05ef007278eb lib/Nagios/Check/DNS/check_tlsa_record.pm
--- a/lib/Nagios/Check/DNS/check_tlsa_record.pm	Tue Jun 21 16:18:38 2016 +0200
+++ b/lib/Nagios/Check/DNS/check_tlsa_record.pm	Tue Jun 21 16:34:49 2016 +0200
@@ -14,8 +14,7 @@
 
 our $VERSION = '0.1';
 
-my $dane_pattern = qr'^(?<record>(?<tlsa_usage>\d+)\s+(?<tlsa_selector>\d+)\s+(?<tlsa_match_type>\d+)\s+(?<tlsa_hash>[0-9a-f ]+))$';
-my $with_cname   = qr'^(?<cname>[_a-z]+.*\n).*';
+my $dane_pattern = qr'(?i)^(?<record>(?<tlsa_usage>\d+)\s+(?<tlsa_selector>\d+)\s+(?<tlsa_match_type>\d+)\s+(?<tlsa_hash>[0-9a-f ]+))$';
 
 # keep in in 'our' to avoid garbage collection and destruction
 # of the File::Temp object
@@ -126,7 +125,7 @@
     my $hashit;
     my $tlsa_match_type;
 
-    if ($dig_return =~ /$dane_pattern/i) {
+    if ($dig_return =~ /$dane_pattern/) {
       $tlsa_match_type = $+{tlsa_match_type};
     }