Hello community,
here is the log from the commit of package perl-Net-DNS for openSUSE:Factory
checked in at 2018-02-16 21:37:43
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Net-DNS (Old)
and /work/SRC/openSUSE:Factory/.perl-Net-DNS.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Net-DNS"
Fri Feb 16 21:37:43 2018 rev:51 rq:576815 version:1.15
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Net-DNS/perl-Net-DNS.changes
2018-01-09 14:34:34.196202367 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Net-DNS.new/perl-Net-DNS.changes
2018-02-16 21:37:44.330094359 +0100
@@ -1,0 +2,6 @@
+Mon Feb 12 12:05:04 UTC 2018 - co...@suse.com
+
+- updated to 1.15
+ see /usr/share/doc/packages/perl-Net-DNS/Changes
+
+-------------------------------------------------------------------
Old:
----
Net-DNS-1.14.tar.gz
New:
----
Net-DNS-1.15.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Net-DNS.spec ++++++
--- /var/tmp/diff_new_pack.IAx47R/_old 2018-02-16 21:37:44.898073854 +0100
+++ /var/tmp/diff_new_pack.IAx47R/_new 2018-02-16 21:37:44.898073854 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Net-DNS
#
-# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,7 +17,7 @@
Name: perl-Net-DNS
-Version: 1.14
+Version: 1.15
Release: 0
%define cpan_name Net-DNS
Summary: Perl Interface to the Domain Name System
++++++ Net-DNS-1.14.tar.gz -> Net-DNS-1.15.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/Changes new/Net-DNS-1.15/Changes
--- old/Net-DNS-1.14/Changes 2017-12-15 13:25:42.000000000 +0100
+++ new/Net-DNS-1.15/Changes 2018-02-09 12:08:33.000000000 +0100
@@ -1,4 +1,12 @@
-$Id: Changes 1610 2017-12-15 12:25:33Z willem $
-*-text-*-
+$Id: Changes 1639 2018-02-09 11:08:24Z willem $
-*-text-*-
+
+
+**** 1.15 Feb 9, 2018
+
+ GOST R 34.11-94 hash algorithm: end of life 1st Jan 2018
+ per sunset clause in successor standard GOST R 34.11-2012.
+ Digest::GOST removed from the recommended module metadata,
+ but will still be used if available.
**** 1.14 Dec 15, 2017
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/MANIFEST new/Net-DNS-1.15/MANIFEST
--- old/Net-DNS-1.14/MANIFEST 2017-12-15 13:25:53.000000000 +0100
+++ new/Net-DNS-1.15/MANIFEST 2018-02-09 12:09:24.000000000 +0100
@@ -194,7 +194,6 @@
t/43-DNSKEY-keylength.t
t/51-DS-SHA1.t
t/52-DS-SHA256.t
-t/53-DS-GOST.t
t/54-DS-SHA384.t
t/61-SIG0-RSAMD5.t
t/65-RRSIG-RSASHA1.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/META.json new/Net-DNS-1.15/META.json
--- old/Net-DNS-1.14/META.json 2017-12-15 13:25:53.000000000 +0100
+++ new/Net-DNS-1.15/META.json 2018-02-09 12:09:24.000000000 +0100
@@ -1,7 +1,9 @@
{
"abstract" : "Perl Interface to the Domain Name System",
"author" : [
- "Olaf Kolkman et al"
+ "Dick Franks",
+ "Olaf Kolkman",
+ "Michael Fuhr"
],
"dynamic_config" : 1,
"generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter
version 2.150010",
@@ -43,6 +45,7 @@
"Digest::MD5" : "2.13",
"Digest::SHA" : "5.23",
"File::Spec" : "0.86",
+ "IO::File" : "1.08",
"IO::Socket" : "1.16",
"MIME::Base64" : "2.11",
"Test::More" : "0.52",
@@ -52,6 +55,6 @@
}
},
"release_status" : "stable",
- "version" : "1.14",
+ "version" : "1.15",
"x_serialization_backend" : "JSON::PP version 2.27400_02"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/META.yml new/Net-DNS-1.15/META.yml
--- old/Net-DNS-1.14/META.yml 2017-12-15 13:25:53.000000000 +0100
+++ new/Net-DNS-1.15/META.yml 2018-02-09 12:09:24.000000000 +0100
@@ -1,7 +1,9 @@
---
abstract: 'Perl Interface to the Domain Name System'
author:
- - 'Olaf Kolkman et al'
+ - 'Dick Franks'
+ - 'Olaf Kolkman'
+ - 'Michael Fuhr'
build_requires:
ExtUtils::MakeMaker: '0'
configure_requires:
@@ -28,10 +30,11 @@
Digest::MD5: '2.13'
Digest::SHA: '5.23'
File::Spec: '0.86'
+ IO::File: '1.08'
IO::Socket: '1.16'
MIME::Base64: '2.11'
Test::More: '0.52'
Time::Local: '1.19'
perl: '5.006'
-version: '1.14'
+version: '1.15'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/Makefile.PL new/Net-DNS-1.15/Makefile.PL
--- old/Net-DNS-1.14/Makefile.PL 2017-12-15 13:25:42.000000000 +0100
+++ new/Net-DNS-1.15/Makefile.PL 2018-02-09 12:08:33.000000000 +0100
@@ -1,5 +1,5 @@
#
-# $Id: Makefile.PL 1608 2017-12-07 10:10:38Z willem $ -*-perl-*-
+# $Id: Makefile.PL 1623 2018-01-26 14:23:54Z willem $ -*-perl-*-
#
@@ -15,19 +15,22 @@
use strict;
use warnings;
-use ExtUtils::MakeMaker;
use Getopt::Long;
use IO::Socket;
+use ExtUtils::MakeMaker;
+use constant MM => eval $ExtUtils::MakeMaker::VERSION;
# See perldoc ExtUtils::MakeMaker for details of how to influence
# the contents of the Makefile that is written.
+my @author = ( 'Dick Franks', 'Olaf Kolkman', 'Michael Fuhr' );
+
my %metadata = (
NAME => 'Net::DNS',
VERSION_FROM => 'lib/Net/DNS.pm',
ABSTRACT_FROM => 'lib/Net/DNS.pm',
- AUTHOR => 'Olaf Kolkman et al',
+ AUTHOR => MM < 6.58 ? "$author[0] et al" : [@author],
LICENSE => 'mit',
MIN_PERL_VERSION => 5.006,
);
@@ -48,6 +51,7 @@
'Digest::MD5' => 2.13,
'Digest::SHA' => 5.23,
'File::Spec' => 0.86,
+ 'IO::File' => 1.08,
'IO::Socket' => 1.16,
'MIME::Base64' => 2.11,
'Time::Local' => 1.19,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/lib/Net/DNS/Domain.pm
new/Net-DNS-1.15/lib/Net/DNS/Domain.pm
--- old/Net-DNS-1.14/lib/Net/DNS/Domain.pm 2017-12-15 13:25:42.000000000
+0100
+++ new/Net-DNS-1.15/lib/Net/DNS/Domain.pm 2018-02-09 12:08:33.000000000
+0100
@@ -1,9 +1,9 @@
package Net::DNS::Domain;
#
-# $Id: Domain.pm 1605 2017-11-27 11:37:40Z willem $
+# $Id: Domain.pm 1611 2018-01-02 09:41:24Z willem $
#
-our $VERSION = (qw$LastChangedRevision: 1605 $)[1];
+our $VERSION = (qw$LastChangedRevision: 1611 $)[1];
=head1 NAME
@@ -113,6 +113,7 @@
my $label = $self->{label} = ( $s eq '@' ) ? [] : [split /\056/,
_encode_utf8($s)];
foreach (@$label) {
+ croak 'empty domain label' unless length;
if ( LIBIDN2 && UTF8 && /[^\000-\177]/ ) {
my $rc = 0;
@@ -129,10 +130,7 @@
s/\134([\060-\071]{3})/$unescape{$1}/eg; # numeric escape
s/\134(.)/$1/g; # character
escape
- croak 'empty domain label' unless length;
- next unless length > 63;
- substr( $_, 63 ) = '';
- carp 'domain label truncated';
+ croak 'long domain label' if length > 63;
}
$$cache1{$k} = $self; # cache object
reference
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/lib/Net/DNS/Parameters.pm
new/Net-DNS-1.15/lib/Net/DNS/Parameters.pm
--- old/Net-DNS-1.14/lib/Net/DNS/Parameters.pm 2017-12-15 13:25:42.000000000
+0100
+++ new/Net-DNS-1.15/lib/Net/DNS/Parameters.pm 2018-02-09 12:08:33.000000000
+0100
@@ -1,15 +1,15 @@
package Net::DNS::Parameters;
#
-# $Id: Parameters.pm 1598 2017-10-03 09:48:30Z willem $
+# $Id: Parameters.pm 1623 2018-01-26 14:23:54Z willem $
#
-our $VERSION = (qw$LastChangedRevision: 1598 $)[1];
+our $VERSION = (qw$LastChangedRevision: 1623 $)[1];
################################################
##
## Domain Name System (DNS) Parameters
-## (last updated 2017-08-30)
+## (last updated 2018-01-08)
##
################################################
@@ -37,7 +37,7 @@
NONE => 254, # RFC2136
ANY => 255, # RFC1035
);
-our %classbyval = reverse @classbyname, ( CLASS0 => 0 );
+our %classbyval = reverse( CLASS0 => 0, @classbyname );
push @classbyname, map /^\d/ ? $_ : lc($_), @classbyname;
our %classbyname = ( '*' => 255, @classbyname );
@@ -130,7 +130,7 @@
TA => 32768, #
http://cameo.library.cmu.edu/ http://www.watson.org/~weiler/INI1999-19.pdf
DLV => 32769, # RFC4431
);
-our %typebyval = reverse @typebyname, ( TYPE0 => 0 );
+our %typebyval = reverse( TYPE0 => 0, @typebyname );
push @typebyname, map /^\d/ ? $_ : lc($_), @typebyname;
our %typebyname = ( '*' => 255, @typebyname );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/lib/Net/DNS/RR/RRSIG.pm
new/Net-DNS-1.15/lib/Net/DNS/RR/RRSIG.pm
--- old/Net-DNS-1.14/lib/Net/DNS/RR/RRSIG.pm 2017-12-15 13:25:42.000000000
+0100
+++ new/Net-DNS-1.15/lib/Net/DNS/RR/RRSIG.pm 2018-02-09 12:08:33.000000000
+0100
@@ -1,9 +1,9 @@
package Net::DNS::RR::RRSIG;
#
-# $Id: RRSIG.pm 1597 2017-09-22 08:04:02Z willem $
+# $Id: RRSIG.pm 1623 2018-01-26 14:23:54Z willem $
#
-our $VERSION = (qw$LastChangedRevision: 1597 $)[1];
+our $VERSION = (qw$LastChangedRevision: 1623 $)[1];
use strict;
@@ -36,7 +36,7 @@
use constant ECDSA => defined eval 'require Net::DNS::SEC::ECDSA';
use constant EdDSA => defined eval 'require Net::DNS::SEC::EdDSA';
-use constant GOST => defined eval 'require Net::DNS::SEC::ECCGOST';
+use constant GOST => defined eval 'require Digest::GOST; require
Net::DNS::SEC::ECCGOST';
use constant DNSSEC => PRIVATE && ( RSA || DSA || ECDSA || EdDSA );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/lib/Net/DNS/RR/SIG.pm
new/Net-DNS-1.15/lib/Net/DNS/RR/SIG.pm
--- old/Net-DNS-1.14/lib/Net/DNS/RR/SIG.pm 2017-12-15 13:25:42.000000000
+0100
+++ new/Net-DNS-1.15/lib/Net/DNS/RR/SIG.pm 2018-02-09 12:08:33.000000000
+0100
@@ -15,9 +15,9 @@
package Net::DNS::RR::SIG;
#
-# $Id: SIG.pm 1597 2017-09-22 08:04:02Z willem $
+# $Id: SIG.pm 1611 2018-01-02 09:41:24Z willem $
#
-our $VERSION = (qw$LastChangedRevision: 1597 $)[1];
+our $VERSION = (qw$LastChangedRevision: 1611 $)[1];
use strict;
@@ -78,11 +78,9 @@
my $signame = $self->{signame};
if ( DNSSEC && !$self->{sigbin} ) {
- my $private = $self->{private} || die 'missing key reference';
- delete $self->{private}; # one shot is
all you get
-
+ my $private = delete $self->{private}; # one shot is
all you get
my $sigdata = $self->_CreateSigData($packet);
- $self->_CreateSig( $sigdata, $private );
+ $self->_CreateSig( $sigdata, $private || die 'missing key
reference' );
}
pack 'n C2 N3 n a* a*', @{$self}{@field}, $signame->encode,
$self->sigbin;
@@ -502,8 +500,7 @@
local $message->{additional} = \@unsigned; # remake
header image
my @part = qw(question answer authority additional);
my @size = map scalar( @{$message->{$_}} ), @part;
- my $rref = $self->{rawref};
- delete $self->{rawref};
+ my $rref = delete $self->{rawref};
my $data = $rref ? $$rref : $message->data;
my ( $id, $status ) = unpack 'n2', $data;
my $hbin = pack 'n6 a*', $id, $status, @size;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/lib/Net/DNS/RR.pm
new/Net-DNS-1.15/lib/Net/DNS/RR.pm
--- old/Net-DNS-1.14/lib/Net/DNS/RR.pm 2017-12-15 13:25:42.000000000 +0100
+++ new/Net-DNS-1.15/lib/Net/DNS/RR.pm 2018-02-09 12:08:33.000000000 +0100
@@ -1,9 +1,9 @@
package Net::DNS::RR;
#
-# $Id: RR.pm 1606 2017-11-30 10:13:43Z willem $
+# $Id: RR.pm 1611 2018-01-02 09:41:24Z willem $
#
-our $VERSION = (qw$LastChangedRevision: 1606 $)[1];
+our $VERSION = (qw$LastChangedRevision: 1611 $)[1];
=head1 NAME
@@ -135,7 +135,7 @@
my $rdlen = shift(@token) || 0;
my $rdata = pack 'H*', join( '', @token );
croak 'length and hexadecimal data inconsistent' unless $rdlen
== length $rdata;
- $self->rdata($rdata) if $rdlen; # unpack RDATA
+ $self->rdata($rdata); # unpack RDATA
return $self;
}
@@ -182,13 +182,12 @@
$attribute{lc $key} = shift;
}
- my ( $owner, $name, $type, $class, $ttl ) = @attribute{@core};
- delete @attribute{@core}; # leaving RDATA
only
+ my ( $owner, $name, $type, $class, $ttl ) = delete @attribute{@core};
- my $self = $base->_subclass( $type, scalar %attribute );
+ my $self = $base->_subclass( $type, scalar(%attribute) );
$self->owner( $name ? $name : $owner );
- $self->class($class) if defined $class; # specify CLASS
- $self->ttl($ttl) if defined $ttl; # specify TTL
+ $self->class($class) if defined $class; # optional CLASS
+ $self->ttl($ttl) if defined $ttl; # optional TTL
eval {
while ( my ( $attribute, $value ) = each %attribute ) {
@@ -272,7 +271,7 @@
my $type = $self->{type};
my $class = $self->{class} || 1;
my $index = $offset + length($owner) + RRFIXEDSZ;
- my $rdata = eval { $self->_empty ? '' : $self->_encode_rdata( $index,
@opaque ); } || '';
+ my $rdata = $self->_empty ? '' : $self->_encode_rdata( $index, @opaque
);
return pack 'a* n2 N n a*', $owner, $type, $class, $self->ttl, length
$rdata, $rdata;
}
@@ -297,7 +296,7 @@
my $type = $self->{type};
my $class = $self->{class} || 1;
my $index = RRFIXEDSZ + length $owner;
- my $rdata = eval { $self->_empty ? '' : $self->_encode_rdata($index); }
|| '';
+ my $rdata = $self->_empty ? '' : $self->_encode_rdata($index);
pack 'a* n2 N n a*', $owner, $type, $class, $self->ttl, length $rdata,
$rdata;
}
@@ -335,7 +334,7 @@
my @core = ( $name, @ttl, $self->class, $self->type );
my $empty = $self->_empty;
- my @rdata = eval { $empty ? () : $self->_format_rdata; };
+ my @rdata = $empty ? () : eval { $self->_format_rdata };
carp $@ if $@;
my $tab = length($name) < 72 ? "\t" : ' ';
@@ -379,7 +378,7 @@
my @ttl = grep defined, $self->{ttl};
my @core = ( $self->{owner}->string, @ttl, $self->class, $self->type );
- my @rdata = eval { $self->_empty ? () : $self->_format_rdata; };
+ my @rdata = $self->_empty ? () : eval { $self->_format_rdata };
# parse into quoted strings, contiguous non-whitespace and (discarded)
comments
my @parse = map { s/\\\\/\\092/g; s/\\"/\\034/g; split /$PARSE_REGEX/o;
} @rdata;
@@ -544,7 +543,7 @@
sub rdata {
my $self = shift;
- return eval { $self->_empty ? '' : $self->_encode_rdata( 0x4000, {} );
} || '' unless @_;
+ return $self->_empty ? '' : eval { $self->_encode_rdata( 0x4000, {} ) }
unless @_;
my $data = shift || '';
my $hash = {};
@@ -564,7 +563,7 @@
sub rdstring {
my $self = shift;
- my @rdata = eval { $self->_empty ? () : $self->_format_rdata; };
+ my @rdata = $self->_empty ? () : eval { $self->_format_rdata };
carp $@ if $@;
join "\n\t", _wrap(@rdata);
@@ -664,7 +663,7 @@
# The optional second argument indicates that default values are
# to be copied into the newly created object.
-our %_MINIMAL = ( 'ANY' => bless ['type' => 255], __PACKAGE__ );
+our %_MINIMAL = ( 255 => bless ['type' => 255], __PACKAGE__ );
our %_LOADED = %_MINIMAL;
sub _subclass {
@@ -720,7 +719,7 @@
my %ignore = map( ( $_ => 1 ), @core, 'annotation', '#' );
sub _empty {
- ( $_[0]->{'#'} ||= scalar grep !$ignore{$_}, keys %{$_[0]} ) == 0;
+ not( $_[0]->{'#'} ||= scalar grep !$ignore{$_}, keys %{$_[0]} );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/lib/Net/DNS/Resolver/Recurse.pm
new/Net-DNS-1.15/lib/Net/DNS/Resolver/Recurse.pm
--- old/Net-DNS-1.14/lib/Net/DNS/Resolver/Recurse.pm 2017-12-15
13:25:42.000000000 +0100
+++ new/Net-DNS-1.15/lib/Net/DNS/Resolver/Recurse.pm 2018-02-09
12:08:33.000000000 +0100
@@ -1,9 +1,9 @@
package Net::DNS::Resolver::Recurse;
#
-# $Id: Recurse.pm 1555 2017-03-22 09:47:16Z willem $
+# $Id: Recurse.pm 1623 2018-01-26 14:23:54Z willem $
#
-our $VERSION = (qw$LastChangedRevision: 1555 $)[1];
+our $VERSION = (qw$LastChangedRevision: 1623 $)[1];
=head1 NAME
@@ -91,7 +91,7 @@
$original = $question unless ref($original); # to preserve
original request
my ( $head, @tail ) = $question->{qname}->label;
- my $domain = lc join( '.', @tail ) || '.';
+ my $domain = lc( join( '.', @tail ) || '.' );
my $nslist = $res->{persistent}->{$domain} ||= [];
unless ( defined $head ) {
my $defres = new Net::DNS::Resolver();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/lib/Net/DNS/ZoneFile.pm
new/Net-DNS-1.15/lib/Net/DNS/ZoneFile.pm
--- old/Net-DNS-1.14/lib/Net/DNS/ZoneFile.pm 2017-12-15 13:25:42.000000000
+0100
+++ new/Net-DNS-1.15/lib/Net/DNS/ZoneFile.pm 2018-02-09 12:08:33.000000000
+0100
@@ -1,9 +1,9 @@
package Net::DNS::ZoneFile;
#
-# $Id: ZoneFile.pm 1605 2017-11-27 11:37:40Z willem $
+# $Id: ZoneFile.pm 1623 2018-01-26 14:23:54Z willem $
#
-our $VERSION = (qw$LastChangedRevision: 1605 $)[1];
+our $VERSION = (qw$LastChangedRevision: 1623 $)[1];
=head1 NAME
@@ -401,8 +401,8 @@
return substr sprintf( "%01.$digit$format", $value ), -$length
if $format =~ /[doxX]/;
my $nibble = join( '.', split //, sprintf ".%32.32lx", $value );
- return lc reverse substr $nibble, -$length if $format =~ /[n]/;
- return uc reverse substr $nibble, -$length if $format =~ /[N]/;
+ return reverse lc( substr $nibble, -$length ) if $format =~
/[n]/;
+ return reverse uc( substr $nibble, -$length ) if $format =~
/[N]/;
die "unknown $format format";
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/lib/Net/DNS.pm
new/Net-DNS-1.15/lib/Net/DNS.pm
--- old/Net-DNS-1.14/lib/Net/DNS.pm 2017-12-15 13:25:42.000000000 +0100
+++ new/Net-DNS-1.15/lib/Net/DNS.pm 2018-02-09 12:08:33.000000000 +0100
@@ -1,13 +1,13 @@
package Net::DNS;
#
-# $Id: DNS.pm 1610 2017-12-15 12:25:33Z willem $
+# $Id: DNS.pm 1639 2018-02-09 11:08:24Z willem $
#
require 5.006;
our $VERSION;
-$VERSION = '1.14';
+$VERSION = '1.15';
$VERSION = eval $VERSION;
-our $SVNVERSION = (qw$LastChangedRevision: 1610 $)[1];
+our $SVNVERSION = (qw$LastChangedRevision: 1639 $)[1];
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/t/00-load.t new/Net-DNS-1.15/t/00-load.t
--- old/Net-DNS-1.14/t/00-load.t 2017-12-15 13:25:41.000000000 +0100
+++ new/Net-DNS-1.15/t/00-load.t 2018-02-09 12:08:33.000000000 +0100
@@ -1,4 +1,4 @@
-# $Id: 00-load.t 1606 2017-11-30 10:13:43Z willem $ -*-perl-*-
+# $Id: 00-load.t 1611 2018-01-02 09:41:24Z willem $ -*-perl-*-
use strict;
use Test::More;
@@ -33,12 +33,13 @@
Win32::TieRegistry
);
-diag("\n\nThese tests were run using:\n");
+my @diag;
foreach my $module (@module) {
eval "require $module";
my $version = eval { $module->VERSION } || next;
- diag sprintf "\t%-25s %s", $module, $version;
+ push @diag, sprintf "%-25s %s", $module, $version;
}
+diag join "\n\t", "\nThese tests were run using:", @diag;
plan tests => 20 + scalar(@Net::DNS::EXPORT);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/t/02-domain.t
new/Net-DNS-1.15/t/02-domain.t
--- old/Net-DNS-1.14/t/02-domain.t 2017-12-15 13:25:41.000000000 +0100
+++ new/Net-DNS-1.15/t/02-domain.t 2018-02-09 12:08:33.000000000 +0100
@@ -1,4 +1,4 @@
-# $Id: 02-domain.t 1555 2017-03-22 09:47:16Z willem $ -*-perl-*-
+# $Id: 02-domain.t 1611 2018-01-02 09:41:24Z willem $ -*-perl-*-
use strict;
use Test::More tests => 53;
@@ -164,13 +164,10 @@
{
- my @warnings;
- local $SIG{__WARN__} = sub { push( @warnings, "@_" ); };
my $name =
'LO-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-O-NG!';
- my $domain = new Net::DNS::Domain("$name");
- my ($warning) = @warnings;
- chomp $warning;
- ok( $warning, "long domain label\t[$warning]" );
+ my $domain = eval { new Net::DNS::Domain("$name") };
+ my $exception = $1 if $@ =~ /^(.+)\n/;
+ ok( $exception ||= '', "long domain label\t[$exception]" );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/t/05-IPSECKEY.t
new/Net-DNS-1.15/t/05-IPSECKEY.t
--- old/Net-DNS-1.14/t/05-IPSECKEY.t 2017-12-15 13:25:41.000000000 +0100
+++ new/Net-DNS-1.15/t/05-IPSECKEY.t 2018-02-09 12:08:33.000000000 +0100
@@ -1,4 +1,4 @@
-# $Id: 05-IPSECKEY.t 1381 2015-08-25 07:36:09Z willem $ -*-perl-*-
+# $Id: 05-IPSECKEY.t 1611 2018-01-02 09:41:24Z willem $ -*-perl-*-
#
use strict;
@@ -119,7 +119,7 @@
{
my $rr = new Net::DNS::RR(". $type @data");
$rr->{gatetype} = 255;
- $rr->encode;
+ eval { $rr->encode };
my $exception = $1 if $@ =~ /^(.+)\n/;
ok( $exception ||= '', "exception raised in encode\t[$exception]" );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/t/08-IPv4.t new/Net-DNS-1.15/t/08-IPv4.t
--- old/Net-DNS-1.14/t/08-IPv4.t 2017-12-15 13:25:41.000000000 +0100
+++ new/Net-DNS-1.15/t/08-IPv4.t 2018-02-09 12:08:33.000000000 +0100
@@ -1,4 +1,4 @@
-# $Id: 08-IPv4.t 1608 2017-12-07 10:10:38Z willem $ -*-perl-*-
+# $Id: 08-IPv4.t 1628 2018-02-01 13:29:13Z willem $ -*-perl-*-
use strict;
use Test::More;
@@ -29,6 +29,14 @@
202.12.27.33
);
+my $NOIP = qw(0.0.0.0);
+
+my @nsdname = qw(
+ ns.net-dns.org
+ mcvax.nlnet.nl
+ ns.nlnetlabs.nl
+ );
+
exit( plan skip_all => 'Online tests disabled.' ) if -e 't/online.disabled';
exit( plan skip_all => 'Online tests disabled.' ) unless -e 't/online.enabled';
@@ -64,23 +72,19 @@
my $IP = eval {
- my @nsdname = qw(ns.net-dns.org mcvax.nlnet.nl ns.nlnetlabs.nl);
my $resolver = new Net::DNS::Resolver();
$resolver->nameservers(@nsdname);
$resolver->force_v4(1);
-
- my @ip = $resolver->nameservers();
- scalar(@ip) ? [@ip] : undef;
-} || exit( plan skip_all => 'Unable to resolve nameserver name' );
-
-my $NOIP = '0.0.0.0';
+ [$resolver->nameservers()];
+};
+exit( plan skip_all => 'Unable to resolve nameserver name' ) unless scalar
@$IP;
diag join( "\n\t", 'will use nameservers', @$IP ) if $debug;
Net::DNS::Resolver->debug($debug);
-plan tests => 92;
+plan tests => 94;
NonFatalBegin();
@@ -222,43 +226,58 @@
{
my $resolver = Net::DNS::Resolver->new( nameservers => $IP );
$resolver->srcaddr($NOIP);
+
+ my $udp = $resolver->bgsend(qw(net-dns.org SOA IN));
+ ok( $udp, '$resolver->bgsend(...) specify UDP local address' );
+
+ $resolver->usevc(1);
+
+ my $tcp = $resolver->bgsend(qw(net-dns.org SOA IN));
+ ok( $tcp, '$resolver->bgsend(...) specify TCP local address' );
+}
+
+
+{
+ my $resolver = Net::DNS::Resolver->new( nameservers => $IP );
$resolver->srcport(2345);
my $udp = $resolver->bgsend(qw(net-dns.org SOA IN));
- ok( $udp, '$resolver->bgsend(...) specify UDP local address &
port' );
+ ok( $udp, '$resolver->bgsend(...) specify UDP source port' );
$resolver->usevc(1);
my $tcp = $resolver->bgsend(qw(net-dns.org SOA IN));
- ok( $tcp, '$resolver->bgsend(...) specify TCP local address &
port' );
+ ok( $tcp, '$resolver->bgsend(...) specify TCP source port' );
}
{
my $resolver = Net::DNS::Resolver->new( nameservers => $IP );
- $resolver->srcport(-1);
+ my $badport = -1;
+ $resolver->srcport($badport);
my $udp = $resolver->send(qw(net-dns.org SOA IN));
- ok( !$udp, '$resolver->send(...) specify bad UDP source port' );
+ ok( !$udp, "\$resolver->send(...) reject UDP source port
$badport" );
$resolver->usevc(1);
my $tcp = $resolver->send(qw(net-dns.org SOA IN));
- ok( !$tcp, '$resolver->send(...) specify bad TCP source port' );
+ ok( !$tcp, "\$resolver->send(...) reject TCP source port
$badport" );
}
{
my $resolver = Net::DNS::Resolver->new( nameservers => $IP );
- $resolver->srcport(-1);
+ my $badport = -1;
+ $resolver->srcport($badport);
my $udp = $resolver->bgsend(qw(net-dns.org SOA IN));
- ok( !$udp, '$resolver->bgsend(...) specify bad UDP source port' );
+ ok( !$udp, "\$resolver->bgsend(...) reject UDP source port
$badport" );
$resolver->usevc(1);
my $tcp = $resolver->bgsend(qw(net-dns.org SOA IN));
- ok( !$tcp, '$resolver->bgsend(...) specify bad TCP source port' );
+ ok( !$tcp, "\$resolver->bgsend(...) reject TCP source port
$badport" );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/t/08-IPv6.t new/Net-DNS-1.15/t/08-IPv6.t
--- old/Net-DNS-1.14/t/08-IPv6.t 2017-12-15 13:25:41.000000000 +0100
+++ new/Net-DNS-1.15/t/08-IPv6.t 2018-02-09 12:08:33.000000000 +0100
@@ -1,4 +1,4 @@
-# $Id: 08-IPv6.t 1608 2017-12-07 10:10:38Z willem $ -*-perl-*-
+# $Id: 08-IPv6.t 1628 2018-02-01 13:29:13Z willem $ -*-perl-*-
use strict;
use Test::More;
@@ -29,6 +29,14 @@
2001:dc3::35
);
+my $NOIP = qw(::);
+
+my @nsdname = qw(
+ ns.net-dns.org
+ mcvax.nlnet.nl
+ ns.nlnetlabs.nl
+ );
+
exit( plan skip_all => 'Online tests disabled.' ) if -e 't/online.disabled';
exit( plan skip_all => 'Online tests disabled.' ) unless -e 't/online.enabled';
@@ -67,23 +75,19 @@
my $IP = eval {
- my @nsdname = qw(ns.net-dns.org mcvax.nlnet.nl ns.nlnetlabs.nl);
my $resolver = new Net::DNS::Resolver();
$resolver->nameservers(@nsdname);
$resolver->force_v6(1);
-
- my @ip = $resolver->nameservers();
- scalar(@ip) ? [@ip] : undef;
-} || exit( plan skip_all => 'Unable to resolve nameserver name' );
-
-my $NOIP = '::';
+ [$resolver->nameservers()];
+};
+exit( plan skip_all => 'Unable to resolve nameserver name' ) unless scalar
@$IP;
diag join( "\n\t", 'will use nameservers', @$IP ) if $debug;
Net::DNS::Resolver->debug($debug);
-plan tests => 92;
+plan tests => 94;
NonFatalBegin();
@@ -225,43 +229,58 @@
{
my $resolver = Net::DNS::Resolver->new( nameservers => $IP );
$resolver->srcaddr($NOIP);
+
+ my $udp = $resolver->bgsend(qw(net-dns.org SOA IN));
+ ok( $udp, '$resolver->bgsend(...) specify UDP local address' );
+
+ $resolver->usevc(1);
+
+ my $tcp = $resolver->bgsend(qw(net-dns.org SOA IN));
+ ok( $tcp, '$resolver->bgsend(...) specify TCP local address' );
+}
+
+
+{
+ my $resolver = Net::DNS::Resolver->new( nameservers => $IP );
$resolver->srcport(2345);
my $udp = $resolver->bgsend(qw(net-dns.org SOA IN));
- ok( $udp, '$resolver->bgsend(...) specify UDP local address &
port' );
+ ok( $udp, '$resolver->bgsend(...) specify UDP source port' );
$resolver->usevc(1);
my $tcp = $resolver->bgsend(qw(net-dns.org SOA IN));
- ok( $tcp, '$resolver->bgsend(...) specify TCP local address &
port' );
+ ok( $tcp, '$resolver->bgsend(...) specify TCP source port' );
}
{
my $resolver = Net::DNS::Resolver->new( nameservers => $IP );
- $resolver->srcport(-1);
+ my $badport = -1;
+ $resolver->srcport($badport);
my $udp = $resolver->send(qw(net-dns.org SOA IN));
- ok( !$udp, '$resolver->send(...) specify bad UDP source port' );
+ ok( !$udp, "\$resolver->send(...) reject UDP source port
$badport" );
$resolver->usevc(1);
my $tcp = $resolver->send(qw(net-dns.org SOA IN));
- ok( !$tcp, '$resolver->send(...) specify bad TCP source port' );
+ ok( !$tcp, "\$resolver->send(...) reject TCP source port
$badport" );
}
{
my $resolver = Net::DNS::Resolver->new( nameservers => $IP );
- $resolver->srcport(-1);
+ my $badport = -1;
+ $resolver->srcport($badport);
my $udp = $resolver->bgsend(qw(net-dns.org SOA IN));
- ok( !$udp, '$resolver->bgsend(...) specify bad UDP source port' );
+ ok( !$udp, "\$resolver->bgsend(...) reject UDP source port
$badport" );
$resolver->usevc(1);
my $tcp = $resolver->bgsend(qw(net-dns.org SOA IN));
- ok( !$tcp, '$resolver->bgsend(...) specify bad TCP source port' );
+ ok( !$tcp, "\$resolver->bgsend(...) reject TCP source port
$badport" );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/t/53-DS-GOST.t
new/Net-DNS-1.15/t/53-DS-GOST.t
--- old/Net-DNS-1.14/t/53-DS-GOST.t 2017-12-15 13:25:41.000000000 +0100
+++ new/Net-DNS-1.15/t/53-DS-GOST.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,58 +0,0 @@
-# $Id: 53-DS-GOST.t 1352 2015-06-02 08:13:13Z willem $ -*-perl-*-
-#
-
-use strict;
-use Test::More;
-use Net::DNS;
-
-my @prerequisite = qw(
- Digest::GOST
- Digest::GOST::CryptoPro
- MIME::Base64
- Net::DNS::RR::DNSKEY
- Net::DNS::RR::DS
- );
-
-foreach my $package (@prerequisite) {
- next if eval "require $package";
- plan skip_all => "$package not installed";
- exit;
-}
-
-plan tests => 3;
-
-
-# Simple known-answer tests based upon the examples given in RFC5933, section
4.1
-
-my $dnskey = new Net::DNS::RR <<'END';
-example.net. 86400 DNSKEY 257 3 12 (
- LMgXRHzSbIJGn6i16K+sDjaDf/k1o9DbxScO
- gEYqYS/rlh2Mf+BRAY3QHPbwoPh2fkDKBroF
- SRGR7ZYcx+YIQw==
- ) ; key id = 40692
-END
-
-my $ds = new Net::DNS::RR <<'END';
-example.net. 3600 IN DS 40692 12 3 (
- 22261A8B0E0D799183E35E24E2AD6BB58533CBA7E3B14D659E9CA09B
- 2071398F )
-END
-
-
-my $test = create Net::DNS::RR::DS(
- $dnskey,
- digtype => 'GOST',
- ttl => 3600
- );
-
-is( $test->string, $ds->string, 'created DS matches RFC5933 example DS' );
-
-ok( $test->verify($dnskey), 'created DS verifies RFC5933 example DNSKEY' );
-
-ok( $ds->verify($dnskey), 'RFC5933 example DS verifies DNSKEY' );
-
-$test->print;
-
-__END__
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.14/t/61-SIG0-RSAMD5.t
new/Net-DNS-1.15/t/61-SIG0-RSAMD5.t
--- old/Net-DNS-1.14/t/61-SIG0-RSAMD5.t 2017-12-15 13:25:41.000000000 +0100
+++ new/Net-DNS-1.15/t/61-SIG0-RSAMD5.t 2018-02-09 12:08:33.000000000 +0100
@@ -1,4 +1,4 @@
-# $Id: 61-SIG0-RSAMD5.t 1385 2015-09-03 06:13:24Z willem $ -*-perl-*-
+# $Id: 61-SIG0-RSAMD5.t 1611 2018-01-02 09:41:24Z willem $ -*-perl-*-
#
use strict;
@@ -211,8 +211,9 @@
$packet->sign_sig0($keyfile);
my $signed = $packet->data; # signing
occurs in SIG->encode
$packet->sigrr->sigbin(''); # signature
destroyed
- my $unsigned = $packet->data; # unable to
regenerate SIG0
- ok( length($unsigned) < length($signed), 'handled exception: missing
key reference' );
+ my $unsigned = eval { $packet->data }; # unable to
regenerate SIG0
+ my $exception = $1 if $@ =~ /^(.*)\n*/;
+ ok( defined $exception, "missing key\t[$exception]" );
}
