[libnet-dns-perl] 01/01: New upstream version 0.81
Ondrej Sury
ondrej at moszumanska.debian.org
Sun Nov 2 12:28:37 UTC 2014
This is an automated email from the git hooks/post-receive script.
ondrej pushed a commit to annotated tag upstream/0.81
in repository libnet-dns-perl.
commit 2734982cba196e1c6cf8151efedfe7198ecd9d70
Author: Ondřej Surý <ondrej at sury.org>
Date: Wed Oct 29 15:02:42 2014 +0100
New upstream version 0.81
---
Changes | 4 ++--
META.json | 4 ++--
META.yml | 2 +-
lib/Net/DNS.pm | 6 +++---
lib/Net/DNS/Packet.pm | 12 ++++++------
lib/Net/DNS/Parameters.pm | 22 +++++++++++-----------
lib/Net/DNS/RR.pm | 8 ++++++--
lib/Net/DNS/RR/MX.pm | 8 ++++----
lib/Net/DNS/RR/TSIG.pm | 7 +++----
lib/Net/DNS/Resolver/MSWin32.pm | 6 +++---
lib/Net/DNS/Resolver/Recurse.pm | 6 +++---
lib/Net/DNS/Resolver/UNIX.pm | 6 +++---
lib/Net/DNS/Resolver/android.pm | 6 +++---
lib/Net/DNS/Resolver/cygwin.pm | 6 +++---
lib/Net/DNS/Resolver/os2.pm | 6 +++---
15 files changed, 56 insertions(+), 53 deletions(-)
diff --git a/Changes b/Changes
index fe0d58b..d6c095d 100644
--- a/Changes
+++ b/Changes
@@ -1,7 +1,7 @@
-$Id: Changes 1277 2014-10-20 07:46:37Z willem $ -*-text-*-
+$Id: Changes 1285 2014-10-29 13:31:41Z willem $ -*-text-*-
-**** 0.81 [unreleased]
+**** 0.81 Oct 29, 2014
Fix rt.cpan.org #99571
diff --git a/META.json b/META.json
index af7288f..3389f21 100644
--- a/META.json
+++ b/META.json
@@ -42,6 +42,6 @@
}
}
},
- "release_status" : "testing",
- "version" : "0.80_2"
+ "release_status" : "stable",
+ "version" : "0.81"
}
diff --git a/META.yml b/META.yml
index cbeffb0..528e964 100644
--- a/META.yml
+++ b/META.yml
@@ -25,4 +25,4 @@ requires:
MIME::Base64: 2.11
Test::More: 0.52
perl: 5.00404
-version: 0.80_2
+version: 0.81
diff --git a/lib/Net/DNS.pm b/lib/Net/DNS.pm
index f88fc46..dd6fc8c 100644
--- a/lib/Net/DNS.pm
+++ b/lib/Net/DNS.pm
@@ -1,11 +1,11 @@
package Net::DNS;
#
-# $Id: DNS.pm 1280 2014-10-24 08:15:06Z willem $
+# $Id: DNS.pm 1285 2014-10-29 13:31:41Z willem $
#
use vars qw($VERSION $SVNVERSION);
-$VERSION = '0.80_2';
-$SVNVERSION = (qw$LastChangedRevision: 1280 $)[1];
+$VERSION = '0.81';
+$SVNVERSION = (qw$LastChangedRevision: 1285 $)[1];
=head1 NAME
diff --git a/lib/Net/DNS/Packet.pm b/lib/Net/DNS/Packet.pm
index f79d26c..f177fb4 100644
--- a/lib/Net/DNS/Packet.pm
+++ b/lib/Net/DNS/Packet.pm
@@ -1,10 +1,10 @@
package Net::DNS::Packet;
#
-# $Id: Packet.pm 1276 2014-10-19 06:02:40Z willem $
+# $Id: Packet.pm 1282 2014-10-27 09:45:19Z willem $
#
use vars qw($VERSION);
-$VERSION = (qw$LastChangedRevision: 1276 $)[1];
+$VERSION = (qw$LastChangedRevision: 1282 $)[1];
=head1 NAME
@@ -299,7 +299,7 @@ specifies the DNS zone to be updated.
=cut
sub question {
- return @{shift->{question}};
+ my @qr = @{shift->{question}};
}
sub zone {&question}
@@ -319,7 +319,7 @@ not preexist.
=cut
sub answer {
- return @{shift->{answer}};
+ my @rr = @{shift->{answer}};
}
sub pre {&answer}
@@ -339,7 +339,7 @@ specifies the RRs or RRsets to be added or deleted.
=cut
sub authority {
- return @{shift->{authority}};
+ my @rr = @{shift->{authority}};
}
sub update {&authority}
@@ -355,7 +355,7 @@ section of the packet.
=cut
sub additional {
- return @{shift->{additional}};
+ my @rr = @{shift->{additional}};
}
diff --git a/lib/Net/DNS/Parameters.pm b/lib/Net/DNS/Parameters.pm
index a6de5d2..8ec3175 100644
--- a/lib/Net/DNS/Parameters.pm
+++ b/lib/Net/DNS/Parameters.pm
@@ -1,10 +1,10 @@
package Net::DNS::Parameters;
#
-# $Id: Parameters.pm 1261 2014-09-11 10:14:45Z willem $
+# $Id: Parameters.pm 1282 2014-10-27 09:45:19Z willem $
#
use vars qw($VERSION);
-$VERSION = (qw$LastChangedRevision: 1261 $)[1];
+$VERSION = (qw$LastChangedRevision: 1282 $)[1];
################################################
@@ -216,9 +216,9 @@ sub classbyname {
my $name = shift;
$classbyname{$name} || do {
- confess "unknown type $name" unless $name =~ m/CLASS(\d+)/;
+ croak "unknown type $name" unless $name =~ m/CLASS(\d+)/;
my $val = 0 + $1;
- confess "classbyname( $name ) out of range" if $val > 0xffff;
+ croak "classbyname( $name ) out of range" if $val > 0xffff;
return $val;
}
}
@@ -228,7 +228,7 @@ sub classbyval {
$classbyval{$val} || do {
$val += 0;
- confess "classbyval( $val ) out of range" if $val > 0xffff;
+ croak "classbyval( $val ) out of range" if $val > 0xffff;
return "CLASS$val";
}
}
@@ -238,9 +238,9 @@ sub typebyname {
my $name = shift;
$typebyname{$name} || do {
- confess "unknown type $name" unless $name =~ m/TYPE(\d+)/;
+ croak "unknown type $name" unless $name =~ m/TYPE(\d+)/;
my $val = 0 + $1;
- confess "typebyname( $name ) out of range" if $val > 0xffff;
+ croak "typebyname( $name ) out of range" if $val > 0xffff;
return $val;
}
}
@@ -250,7 +250,7 @@ sub typebyval {
$typebyval{$val} || do {
$val += 0;
- confess "typebyval( $val ) out of range" if $val > 0xffff;
+ croak "typebyval( $val ) out of range" if $val > 0xffff;
return "TYPE$val";
}
}
@@ -259,7 +259,7 @@ sub typebyval {
sub opcodebyname {
my $name = shift;
return $opcodebyname{$name} if defined $opcodebyname{$name};
- confess "unknown opcode $name";
+ croak "unknown opcode $name";
}
sub opcodebyval {
@@ -272,7 +272,7 @@ sub rcodebyname {
my $arg = shift;
return $rcodebyname{$arg} if defined $rcodebyname{$arg};
return 0 + $arg if $arg =~ /^\d/;
- confess "unknown rcode $arg";
+ croak "unknown rcode $arg";
}
sub rcodebyval {
@@ -285,7 +285,7 @@ sub ednsoptionbyname {
my $arg = shift;
return $ednsoptionbyname{$arg} if defined $ednsoptionbyname{$arg};
return 0 + $arg if $arg =~ /^\d/;
- confess "unknown option $arg";
+ croak "unknown option $arg";
}
sub ednsoptionbyval {
diff --git a/lib/Net/DNS/RR.pm b/lib/Net/DNS/RR.pm
index e8ed368..9128a47 100644
--- a/lib/Net/DNS/RR.pm
+++ b/lib/Net/DNS/RR.pm
@@ -1,10 +1,10 @@
package Net::DNS::RR;
#
-# $Id: RR.pm 1276 2014-10-19 06:02:40Z willem $
+# $Id: RR.pm 1282 2014-10-27 09:45:19Z willem $
#
use vars qw($VERSION);
-$VERSION = (qw$LastChangedRevision: 1276 $)[1];
+$VERSION = (qw$LastChangedRevision: 1282 $)[1];
=head1 NAME
@@ -243,6 +243,7 @@ use constant RRFIXEDSZ => length pack 'n2 N n', (0) x 4;
sub decode {
my $base = shift;
my ( $data, $offset, @opaque ) = @_;
+ my $start = $offset;
my ( $owner, $fixed ) = decode Net::DNS::DomainName1035(@_);
@@ -257,12 +258,15 @@ sub decode {
my $next = $index + $self->{rdlength};
die 'corrupt wire-format data' if length $$data < $next;
+ $self->{offset} = $start;
if (COMPATIBLE) {
ref($self)->new( $self, $data, $index, @opaque );
+ delete $self->{offset};
return wantarray ? ( $self, $next ) : $self;
}
$self->decode_rdata( $data, $index, @opaque ) if $next > $index or $self->type eq 'OPT';
+ delete $self->{offset};
return wantarray ? ( $self, $next ) : $self;
}
diff --git a/lib/Net/DNS/RR/MX.pm b/lib/Net/DNS/RR/MX.pm
index 53e307f..92bf2d3 100644
--- a/lib/Net/DNS/RR/MX.pm
+++ b/lib/Net/DNS/RR/MX.pm
@@ -1,10 +1,10 @@
package Net::DNS::RR::MX;
#
-# $Id: MX.pm 1235 2014-07-29 07:58:19Z willem $
+# $Id: MX.pm 1282 2014-10-27 09:45:19Z willem $
#
use vars qw($VERSION);
-$VERSION = (qw$LastChangedRevision: 1235 $)[1];
+$VERSION = (qw$LastChangedRevision: 1282 $)[1];
use strict;
@@ -52,8 +52,8 @@ sub format_rdata { ## format rdata portion of RR string.
sub parse_rdata { ## populate RR from rdata in argument list
my $self = shift;
- $self->preference(shift) if @_;
- $self->exchange( shift || return );
+ $self->preference( shift || return );
+ $self->exchange(shift);
}
diff --git a/lib/Net/DNS/RR/TSIG.pm b/lib/Net/DNS/RR/TSIG.pm
index 7b6342a..b4c1980 100644
--- a/lib/Net/DNS/RR/TSIG.pm
+++ b/lib/Net/DNS/RR/TSIG.pm
@@ -1,10 +1,10 @@
package Net::DNS::RR::TSIG;
#
-# $Id: TSIG.pm 1279 2014-10-24 08:12:21Z willem $
+# $Id: TSIG.pm 1282 2014-10-27 09:45:19Z willem $
#
use vars qw($VERSION);
-$VERSION = (qw$LastChangedRevision: 1279 $)[1];
+$VERSION = (qw$LastChangedRevision: 1282 $)[1];
use strict;
@@ -75,7 +75,6 @@ sub decode_rdata { ## decode rdata from wire-format octet string
my $self = shift;
my ( $data, $offset ) = @_;
- my $eom = $offset - Net::DNS::RR->RRFIXEDSZ - length $self->{owner}->encode();
( $self->{algorithm}, $offset ) = decode Net::DNS::DomainName(@_);
# Design decision: Use 32 bits, which will work until the end of time()!
@@ -94,7 +93,7 @@ sub decode_rdata { ## decode rdata from wire-format octet string
$offset += $other_size + 2;
croak('misplaced or corrupt TSIG') unless $offset == length $$data;
- substr( $$data, $eom ) = '';
+ substr( $$data, $self->{offset} || $offset ) = '';
$self->{rawref} = $data;
}
diff --git a/lib/Net/DNS/Resolver/MSWin32.pm b/lib/Net/DNS/Resolver/MSWin32.pm
index 7edd0b3..cce9699 100644
--- a/lib/Net/DNS/Resolver/MSWin32.pm
+++ b/lib/Net/DNS/Resolver/MSWin32.pm
@@ -1,14 +1,14 @@
package Net::DNS::Resolver::MSWin32;
#
-# $Id: MSWin32.pm 1258 2014-09-04 12:23:18Z willem $
+# $Id: MSWin32.pm 1282 2014-10-27 09:45:19Z willem $
#
use vars qw($VERSION);
-$VERSION = (qw$LastChangedRevision: 1258 $)[1];
+$VERSION = (qw$LastChangedRevision: 1282 $)[1];
=head1 NAME
-Net::DNS::Resolver::MSWin32 - MS Windows Resolver Class
+Net::DNS::Resolver::MSWin32 - MS Windows resolver class
=cut
diff --git a/lib/Net/DNS/Resolver/Recurse.pm b/lib/Net/DNS/Resolver/Recurse.pm
index c998719..16cad91 100644
--- a/lib/Net/DNS/Resolver/Recurse.pm
+++ b/lib/Net/DNS/Resolver/Recurse.pm
@@ -1,10 +1,10 @@
package Net::DNS::Resolver::Recurse;
#
-# $Id: Recurse.pm 1274 2014-10-14 20:35:58Z willem $
+# $Id: Recurse.pm 1282 2014-10-27 09:45:19Z willem $
#
use vars qw($VERSION);
-$VERSION = (qw$LastChangedRevision: 1274 $)[1];
+$VERSION = (qw$LastChangedRevision: 1282 $)[1];
=head1 NAME
@@ -176,7 +176,7 @@ sub send {
$ns = []; # substitute IP list in situ
$res->empty_nameservers();
@$ns = $res->nameservers($name);
- next unless @$ns;
+ next unless scalar @$ns;
my $reply = $res->send($query) || next;
$res->{callback}->($reply) if $res->{callback};
return $reply;
diff --git a/lib/Net/DNS/Resolver/UNIX.pm b/lib/Net/DNS/Resolver/UNIX.pm
index 6a34df7..651b511 100644
--- a/lib/Net/DNS/Resolver/UNIX.pm
+++ b/lib/Net/DNS/Resolver/UNIX.pm
@@ -1,15 +1,15 @@
package Net::DNS::Resolver::UNIX;
#
-# $Id: UNIX.pm 1235 2014-07-29 07:58:19Z willem $
+# $Id: UNIX.pm 1282 2014-10-27 09:45:19Z willem $
#
use vars qw($VERSION);
-$VERSION = (qw$LastChangedRevision: 1235 $)[1];
+$VERSION = (qw$LastChangedRevision: 1282 $)[1];
=head1 NAME
-Net::DNS::Resolver::UNIX - UNIX Resolver Class
+Net::DNS::Resolver::UNIX - UNIX resolver class
=cut
diff --git a/lib/Net/DNS/Resolver/android.pm b/lib/Net/DNS/Resolver/android.pm
index 1ad3759..12f729a 100644
--- a/lib/Net/DNS/Resolver/android.pm
+++ b/lib/Net/DNS/Resolver/android.pm
@@ -1,15 +1,15 @@
package Net::DNS::Resolver::android;
#
-# $Id: android.pm 1255 2014-08-20 09:05:00Z willem $
+# $Id: android.pm 1282 2014-10-27 09:45:19Z willem $
#
use vars qw($VERSION);
-$VERSION = (qw$LastChangedRevision: 1255 $)[1];
+$VERSION = (qw$LastChangedRevision: 1282 $)[1];
=head1 NAME
-Net::DNS::Resolver::android - Android Resolver Class
+Net::DNS::Resolver::android - Android resolver class
=cut
diff --git a/lib/Net/DNS/Resolver/cygwin.pm b/lib/Net/DNS/Resolver/cygwin.pm
index 204f652..dcf5079 100644
--- a/lib/Net/DNS/Resolver/cygwin.pm
+++ b/lib/Net/DNS/Resolver/cygwin.pm
@@ -1,14 +1,14 @@
package Net::DNS::Resolver::cygwin;
#
-# $Id: cygwin.pm 1258 2014-09-04 12:23:18Z willem $
+# $Id: cygwin.pm 1282 2014-10-27 09:45:19Z willem $
#
use vars qw($VERSION);
-$VERSION = (qw$LastChangedRevision: 1258 $)[1];
+$VERSION = (qw$LastChangedRevision: 1282 $)[1];
=head1 NAME
-Net::DNS::Resolver::cygwin - Cygwin Resolver Class
+Net::DNS::Resolver::cygwin - Cygwin resolver class
=cut
diff --git a/lib/Net/DNS/Resolver/os2.pm b/lib/Net/DNS/Resolver/os2.pm
index 91a94c5..e4521dc 100644
--- a/lib/Net/DNS/Resolver/os2.pm
+++ b/lib/Net/DNS/Resolver/os2.pm
@@ -1,14 +1,14 @@
package Net::DNS::Resolver::os2;
#
-# $Id: os2.pm 1235 2014-07-29 07:58:19Z willem $
+# $Id: os2.pm 1282 2014-10-27 09:45:19Z willem $
#
use vars qw($VERSION);
-$VERSION = (qw$LastChangedRevision: 1235 $)[1];
+$VERSION = (qw$LastChangedRevision: 1282 $)[1];
=head1 NAME
-Net::DNS::Resolver::os2 - OS2 Resolver Class
+Net::DNS::Resolver::os2 - OS2 resolver class
=cut
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dns-perl.git
More information about the Pkg-perl-cvs-commits
mailing list