author | Heiko Schlittermann <hs@schlittermann.de> |
Tue, 21 Jun 2016 16:14:34 +0200 | |
branch | test |
changeset 32 | d73a52cb6b5e |
parent 31 | 750b25c76ab0 |
child 33 | 307dbb1d05a5 |
--- a/lib/Nagios/Check/DNS/check_tlsa_record.pm Tue Jun 21 16:07:28 2016 +0200 +++ b/lib/Nagios/Check/DNS/check_tlsa_record.pm Tue Jun 21 16:14:34 2016 +0200 @@ -18,7 +18,7 @@ my $with_cname = '^(?<cname>[_a-z]+.*\n).*'; our $tmpfile = File::Temp->new(); -my $fdname = "/dev/fd/' . fileno $tmpfile; +my $fdname = '/dev/fd/' . fileno $tmpfile; fcntl($tmpfile, F_SETFD, fcntl($tmpfile, F_GETFD, 0) & ~FD_CLOEXEC) or die "clear FD_CLOEXEC on $tmpfile: $!\n";