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ý <ond...@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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to