# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1466518496 -7200
# Node ID 307dbb1d05a5a3327c09db2b50051eb06bfeaafc
# Parent  d73a52cb6b5e156be5e5f3ea341761714d4b597a
Use qr/ / for pre-compiliation of regex

diff -r d73a52cb6b5e -r 307dbb1d05a5 lib/Nagios/Check/DNS/check_tlsa_record.pm
--- a/lib/Nagios/Check/DNS/check_tlsa_record.pm	Tue Jun 21 16:14:34 2016 +0200
+++ b/lib/Nagios/Check/DNS/check_tlsa_record.pm	Tue Jun 21 16:14:56 2016 +0200
@@ -14,8 +14,8 @@
 
 our $VERSION = '0.1';
 
-my $dane_pattern = '^(?<record>(?<tlsa_usage>\d+)\s+(?<tlsa_selector>\d+)\s+(?<tlsa_match_type>\d+)\s+(?<tlsa_hash>[0-9a-f ]+))$';
-my $with_cname   = '^(?<cname>[_a-z]+.*\n).*';
+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).*';
 
 our $tmpfile = File::Temp->new();
 my $fdname = '/dev/fd/' . fileno $tmpfile;