Sophie

Sophie

distrib > * > 2008.0 > x86_64 > by-pkgid > 7a9591ca1bacd7d3e1d5a8ed129c654b > files > 2

perl-Net-DNS-0.61-1.1mdv2008.0.src.rpm

## 52_A_croak.dpatch by Nico Golde <nion@debian.org>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: CVE-2007-6341

diff -urNad git~/lib/Net/DNS/RR/A.pm git/lib/Net/DNS/RR/A.pm
--- git~/lib/Net/DNS/RR/A.pm	2008-01-22 21:36:10.000000000 +0100
+++ git/lib/Net/DNS/RR/A.pm	2008-01-22 21:36:16.000000000 +0100
@@ -18,7 +18,7 @@
 sub new {
 	my ($class, $self, $data, $offset) = @_;
 
-	if ($self->{"rdlength"} > 0) {
+	if ($self->{"rdlength"} >= 4) {
 		$self->{"address"} = inet_ntoa(substr($$data, $offset, 4));
 	}