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ý <[email protected]> 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 _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
