[libnet-dns-perl] 01/06: Fix remote crash: invalid udp packet crashes net dns nameserver

[Ondrej Sury]

This is an automated email from the git hooks/post-receive script.

ondrej pushed a commit to branch master-wheezy
in repository libnet-dns-perl.

commit 5d6ecca6db3360f6d1a5dfd8fa58decae497ffd8
Author: Ondřej Surý <ondrej at sury.org>
Date:   Fri Jun 13 10:21:13 2014 +0200

    Fix remote crash: invalid udp packet crashes net dns nameserver
---
 ...ix-invalid-udp-packet-crashes-net-dns-nameserver.patch | 15 +++++++++++++++
 debian/patches/series                                     |  1 +
 2 files changed, 16 insertions(+)

diff --git a/debian/patches/fix-invalid-udp-packet-crashes-net-dns-nameserver.patch b/debian/patches/fix-invalid-udp-packet-crashes-net-dns-nameserver.patch
new file mode 100644
index 0000000..6be5bfe
--- /dev/null
+++ b/debian/patches/fix-invalid-udp-packet-crashes-net-dns-nameserver.patch
@@ -0,0 +1,15 @@
+--- libnet-dns-perl.orig/lib/Net/DNS/Nameserver.pm
++++ libnet-dns-perl/lib/Net/DNS/Nameserver.pm
+@@ -384,8 +384,10 @@ sub udp_connection {
+ sub max_udp_len {
+ 	my ($self, $query) = @_;
+ 
+-	for my $rr ($query->additional) {
+-		return $rr->size if $rr->type eq 'OPT';
++	if ($query) {
++		for my $rr ( $query->additional ) {
++			return $rr->size if $rr->type eq 'OPT';
++		}
+ 	}
+ 
+ 	return 512;
diff --git a/debian/patches/series b/debian/patches/series
index 8da5988..023d3c2 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -2,3 +2,4 @@ dnswalk-readme-note.patch
 perl-path-examples.patch
 manpages-typos.patch
 do-not-fail-make-test-offline.patch
+fix-invalid-udp-packet-crashes-net-dns-nameserver.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dns-perl.git