Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Net-DNS for openSUSE:Factory
checked in at 2022-06-18 22:05:22
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Net-DNS (Old)
and /work/SRC/openSUSE:Factory/.perl-Net-DNS.new.1548 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Net-DNS"
Sat Jun 18 22:05:22 2022 rev:67 rq:983146 version:1.34
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Net-DNS/perl-Net-DNS.changes
2022-03-05 14:44:25.767716248 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Net-DNS.new.1548/perl-Net-DNS.changes
2022-06-18 22:05:29.595596730 +0200
@@ -1,0 +2,6 @@
+Tue May 31 03:08:12 UTC 2022 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 1.34
+ see /usr/share/doc/packages/perl-Net-DNS/Changes
+
+-------------------------------------------------------------------
Old:
----
Net-DNS-1.33.tar.gz
New:
----
Net-DNS-1.34.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Net-DNS.spec ++++++
--- /var/tmp/diff_new_pack.Nhy3Gu/_old 2022-06-18 22:05:30.003597310 +0200
+++ /var/tmp/diff_new_pack.Nhy3Gu/_new 2022-06-18 22:05:30.007597315 +0200
@@ -18,7 +18,7 @@
%define cpan_name Net-DNS
Name: perl-Net-DNS
-Version: 1.33
+Version: 1.34
Release: 0
License: MIT
Summary: Perl Interface to the Domain Name System
++++++ Net-DNS-1.33.tar.gz -> Net-DNS-1.34.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/Changes new/Net-DNS-1.34/Changes
--- old/Net-DNS-1.33/Changes 2021-12-16 12:21:18.000000000 +0100
+++ new/Net-DNS-1.34/Changes 2022-05-30 12:07:57.000000000 +0200
@@ -1,4 +1,15 @@
-$Id: Changes 1861 2021-12-16 11:21:07Z willem $
-*-text-*-
+$Id: Changes 1867 2022-05-30 10:07:36Z willem $
-*-text-*-
+
+
+**** 1.34 May 30, 2022
+
+ Improve robustness of EDNS option compose/decompose functions.
+
+ Simplify code in Makefile.PL.
+
+Fix rt.cpan.org #142426
+
+ Avoid "Useless use of a constant in void context" warning.
**** 1.33 Dec 16, 2021
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/META.json new/Net-DNS-1.34/META.json
--- old/Net-DNS-1.33/META.json 2021-12-16 12:22:06.000000000 +0100
+++ new/Net-DNS-1.34/META.json 2022-05-30 12:08:05.000000000 +0200
@@ -6,7 +6,7 @@
"Michael Fuhr"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter
version 2.150010",
+ "generated_by" : "ExtUtils::MakeMaker version 7.64, CPAN::Meta::Converter
version 2.150010",
"license" : [
"mit"
],
@@ -56,19 +56,20 @@
"PerlIO" : "1.05",
"Scalar::Util" : "1.25",
"Time::Local" : "1.19",
- "perl" : "5.008008"
+ "perl" : "5.008009"
}
},
"test" : {
"requires" : {
"File::Find" : "1.05",
"File::Spec" : "0.86",
+ "IO::File" : "1.08",
"Test::Builder" : "0",
"Test::More" : "0"
}
}
},
"release_status" : "stable",
- "version" : "1.33",
- "x_serialization_backend" : "JSON::PP version 4.00"
+ "version" : "1.34",
+ "x_serialization_backend" : "JSON::PP version 4.08"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/META.yml new/Net-DNS-1.34/META.yml
--- old/Net-DNS-1.33/META.yml 2021-12-16 12:22:06.000000000 +0100
+++ new/Net-DNS-1.34/META.yml 2022-05-30 12:08:05.000000000 +0200
@@ -8,6 +8,7 @@
ExtUtils::MakeMaker: '0'
File::Find: '1.05'
File::Spec: '0.86'
+ IO::File: '1.08'
Test::Builder: '0'
Test::More: '0'
configure_requires:
@@ -16,7 +17,7 @@
IO::File: '1.08'
IO::Socket::IP: '0.38'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version
2.150010'
+generated_by: 'ExtUtils::MakeMaker version 7.64, CPAN::Meta::Converter version
2.150010'
license: mit
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -45,6 +46,6 @@
PerlIO: '1.05'
Scalar::Util: '1.25'
Time::Local: '1.19'
- perl: '5.008008'
-version: '1.33'
+ perl: '5.008009'
+version: '1.34'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/Makefile.PL new/Net-DNS-1.34/Makefile.PL
--- old/Net-DNS-1.33/Makefile.PL 2021-12-16 12:21:18.000000000 +0100
+++ new/Net-DNS-1.34/Makefile.PL 2022-05-30 12:07:57.000000000 +0200
@@ -1,26 +1,28 @@
#
-# $Id: Makefile.PL 1814 2020-10-14 21:49:16Z willem $ -*-perl-*-
+# $Id: Makefile.PL 1864 2022-04-14 15:18:49Z willem $ -*-perl-*-
#
-use 5.008008;
+use 5.008009;
use strict;
use warnings;
use ExtUtils::MakeMaker;
my $MM = $ExtUtils::MakeMaker::VERSION;
+my $distro = 'Net::DNS';
+my $module = join '/', 'lib', split /::/, "$distro.pm";
+my @author = ( 'Dick Franks', 'Olaf Kolkman', 'Michael Fuhr' );
+
# 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',
+ NAME => "$distro",
+ VERSION_FROM => "$module",
+ ABSTRACT_FROM => "$module",
AUTHOR => $MM < 6.58 ? "$author[0] et al" : [@author],
LICENSE => 'mit',
- MIN_PERL_VERSION => '5.008008',
+ MIN_PERL_VERSION => '5.008009',
CONFIGURE_REQUIRES => {
'ExtUtils::MakeMaker' => 6.66,
'Getopt::Long' => 2.43,
@@ -30,6 +32,7 @@
TEST_REQUIRES => {
'File::Find' => 1.05,
'File::Spec' => 0.86,
+ 'IO::File' => 1.08,
'Test::Builder' => 0,
'Test::More' => 0,
} );
@@ -135,7 +138,7 @@
#
# Enable tests if we have internet connection (code lifted from LWP)
#
-use constant USE_SOCKET_IP => defined eval 'use IO::Socket::IP 0.38; 1;';
## no critic
+use constant USE_SOCKET_IP => defined eval 'use IO::Socket::IP 0.38; 1;';
## no critic
require IO::Socket::INET unless USE_SOCKET_IP;
if ($online_tests) {
@@ -206,6 +209,8 @@
clean => {FILES => "@debris"},
);
+exit;
+
package MY; ## customise generated Makefile
@@ -238,9 +243,10 @@
s|([/])[/]+|$1|g; # remove
gratuitous //s
}
- my @version = ( 'version', eval { require Net::DNS; $Net::DNS::VERSION;
} );
+ eval "require $distro"; ## no critic
+ my @version = ( 'version', eval { $distro->VERSION } );
- my $nameregex = '\W+Net\W+DNS.pm$';
+ my $nameregex = join '\W+', '', split /::/, "$distro.pm\$";
my @installed = grep { $_ && m/$nameregex/io } values %INC;
my %occluded;
@@ -261,7 +267,7 @@
my $message;
warn $message = <<"AMEN";
##
-## The install location for this version of Net::DNS differs
+## The install location for this version of $distro differs
## from the existing @version in your perl library at
## @installed
##
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/lib/Net/DNS/Packet.pm
new/Net-DNS-1.34/lib/Net/DNS/Packet.pm
--- old/Net-DNS-1.33/lib/Net/DNS/Packet.pm 2021-12-16 12:21:18.000000000
+0100
+++ new/Net-DNS-1.34/lib/Net/DNS/Packet.pm 2022-05-30 12:07:57.000000000
+0200
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = (qw$Id: Packet.pm 1855 2021-11-26 11:33:48Z willem $)[2];
+our $VERSION = (qw$Id: Packet.pm 1865 2022-05-21 09:57:49Z willem $)[2];
=head1 NAME
@@ -115,12 +115,12 @@
my $self;
eval {
local $SIG{__DIE__};
- die 'corrupt wire-format data' if length($$data) <
HEADER_LENGTH;
+ my $length = length $$data;
+ die 'corrupt wire-format data' if $length < HEADER_LENGTH;
# header section
my ( $id, $status, @count ) = unpack 'n6', $$data;
my ( $qd, $an, $ns, $ar ) = @count;
- my $length = length $$data;
$self = bless {
id => $id,
@@ -398,12 +398,13 @@
my $self = shift;
my $header = $self->header;
+ my $opcode = $header->opcode;
my $server = $self->{replyfrom};
my $length = $self->{replysize};
my $origin = $server ? ";; Response received from $server ($length
octets)\n" : "";
my @record = ( "$origin;; HEADER SECTION", $header->string );
- if ( $self->{dso} ) {
+ if ( $opcode eq 'DSO' ) {
CORE::push( @record, ";; DSO SECTION" );
foreach ( @{$self->{dso}} ) {
my ( $t, $v ) = @$_;
@@ -412,7 +413,7 @@
return join "\n", @record, "\n";
}
- my @section = $header->opcode eq 'UPDATE' ? qw(ZONE PREREQUISITE
UPDATE) : qw(QUESTION ANSWER AUTHORITY);
+ my @section = $opcode eq 'UPDATE' ? qw(ZONE PREREQUISITE UPDATE) :
qw(QUESTION ANSWER AUTHORITY);
my @question = $self->question;
my $qdcount = scalar @question;
my $qds = $qdcount != 1 ? 's' : '';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/lib/Net/DNS/Parameters.pm
new/Net-DNS-1.34/lib/Net/DNS/Parameters.pm
--- old/Net-DNS-1.33/lib/Net/DNS/Parameters.pm 2021-12-16 12:21:18.000000000
+0100
+++ new/Net-DNS-1.34/lib/Net/DNS/Parameters.pm 2022-05-30 12:07:57.000000000
+0200
@@ -3,13 +3,13 @@
################################################
##
## Domain Name System (DNS) Parameters
-## (last updated 2021-11-22)
+## (last updated 2022-04-01)
##
################################################
use strict;
use warnings;
-our $VERSION = (qw$Id: Parameters.pm 1855 2021-11-26 11:33:48Z willem $)[2];
+our $VERSION = (qw$Id: Parameters.pm 1865 2022-05-21 09:57:49Z willem $)[2];
use integer;
use Carp;
@@ -360,48 +360,41 @@
}
-sub register { ## register( 'TOY', 1234 ) (NOT
part of published API)
- my ( $mnemonic, $rrtype ) = @_; # uncoverable
pod
- $rrtype = rand(255) + 65280 unless $rrtype;
- croak qq["$mnemonic" is a CLASS identifier] if defined
$classbyname{$mnemonic = uc($mnemonic)};
- for ( typebyval( $rrtype = int $rrtype ) ) {
- return $rrtype if /^$mnemonic$/; # duplicate
registration
- croak qq["$mnemonic" conflicts with TYPE$rrtype ($_)] unless
/^TYPE\d+$/;
- my $known = $typebyname{$mnemonic};
- croak qq["$mnemonic" conflicts with TYPE$known] if $known;
- }
- $typebyval{$rrtype} = $mnemonic;
- return $typebyname{$mnemonic} = $rrtype;
-}
-
-
use constant EXTLANG => defined eval { require Net::DNS::Extlang };
-our $DNSEXTLANG = EXTLANG ? eval { Net::DNS::Extlang->new()->domain } : undef;
-
sub _typespec {
- eval { ## draft-levine-dnsextlang
- <<'END' } if EXTLANG && $DNSEXTLANG;
- my ($node) = @_;
+ my $generate = defined wantarray;
+ return EXTLANG ? eval <<'END' : ''; # no critic
+ my ($node) = @_; ## draft-levine-dnsextlang
+ my $instance = Net::DNS::Extlang->new();
+ my $basename = $instance->domain || return '';
require Net::DNS::Resolver;
- my $resolver = Net::DNS::Resolver->new() || return;
- my $response = $resolver->send( "$node.$DNSEXTLANG", 'TXT' ) || return;
+ my $resolver = Net::DNS::Resolver->new();
+ my $response = $resolver->send( "$node.$basename", 'TXT' ) || return '';
foreach my $txt ( grep { $_->type eq 'TXT' } $response->answer ) {
my @stanza = $txt->txtdata;
my ( $tag, $identifier, @attribute ) = @stanza;
next unless defined($tag) && $tag =~ /^RRTYPE=\d+$/;
- register( $1, $2 ) if $identifier =~ /^(\w+):(\d+)\W*/;
- return unless defined wantarray;
+ if ( $identifier =~ /^(\w+):(\d+)\W*/ ) {
+ my ( $mnemonic, $rrtype ) = ( uc($1), $2 );
+ croak qq["$mnemonic" is a CLASS identifier] if
$classbyname{$mnemonic};
+ for ( typebyval($rrtype) ) {
+ next if /^$mnemonic$/i; # duplicate
registration
+ croak qq["$mnemonic" conflicts with TYPE$rrtype
($_)] unless /^TYPE\d+$/;
+ my $known = $typebyname{$mnemonic};
+ croak qq["$mnemonic" conflicts with TYPE$known]
if $known;
+ $typebyval{$rrtype} = $mnemonic;
+ $typebyname{$mnemonic} = $rrtype;
+ }
+ }
+ return unless $generate;
- my $extobj = Net::DNS::Extlang->new();
- my $recipe = $extobj->xlstorerecord( $identifier, @attribute );
- my @source = split /\n/, $extobj->compilerr($recipe);
- return sub { defined( $_ = shift @source ) };
+ my $recipe = $instance->xlstorerecord( $identifier, @attribute
);
+ return $instance->compilerr($recipe);
}
END
- return;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/lib/Net/DNS/RR/OPT.pm
new/Net-DNS-1.34/lib/Net/DNS/RR/OPT.pm
--- old/Net-DNS-1.33/lib/Net/DNS/RR/OPT.pm 2021-12-16 12:21:18.000000000
+0100
+++ new/Net-DNS-1.34/lib/Net/DNS/RR/OPT.pm 2022-05-30 12:07:57.000000000
+0200
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = (qw$Id: OPT.pm 1857 2021-12-07 13:38:02Z willem $)[2];
+our $VERSION = (qw$Id: OPT.pm 1864 2022-04-14 15:18:49Z willem $)[2];
use base qw(Net::DNS::RR);
@@ -154,6 +154,8 @@
}
+########################################
+
sub _format_option {
my ( $self, $number ) = @_;
my $option = ednsoptionbyval($number);
@@ -216,8 +218,6 @@
}
-########################################
-
## no critic ProhibitMultiplePackages
package Net::DNS::RR::OPT::DAU; #
RFC6975
@@ -250,7 +250,7 @@
my ( $class, %argument ) = ( map( ( $_ => 0 ), @field8 ), @_ );
my $address = bless( {}, $family{$argument{FAMILY}} )->address(
$argument{ADDRESS} );
my $bitmask = $argument{'SOURCE-PREFIX-LENGTH'};
- pack "a* B$bitmask", pack( 'nC2', @argument{@field8} ), unpack 'B*',
$address;
+ return pack "a* B$bitmask", pack( 'nC2', @argument{@field8} ), unpack
'B*', $address;
}
sub _decompose {
@@ -258,26 +258,28 @@
@hash{@field8} = unpack 'nC2a*', $_[1];
$hash{ADDRESS} = bless( {address => $hash{ADDRESS}},
$family{$hash{FAMILY}} )->address;
my @payload = map( ( $_ => $hash{$_} ), @field8 );
+ return @payload;
}
sub _image {
my %hash = &_decompose;
my @image = map "$_ => $hash{$_}", @field8;
+ return @image;
}
package Net::DNS::RR::OPT::EXPIRE; # RFC7314
sub _compose {
- my ( $class, %argument ) = @_;
- pack 'N', values %argument;
+ return pack 'N', pop @_;
}
sub _decompose {
my @payload = ( 'EXPIRE-TIMER' => unpack 'N', $_[1] );
+ return @payload;
}
-sub _image { join ' => ', &_decompose; }
+sub _image { return join ' => ', &_decompose; }
package Net::DNS::RR::OPT::COOKIE; # RFC7873
@@ -287,7 +289,7 @@
sub _compose {
my ( $class, %argument ) = ( VERSION => 1, RESERVED => '', @_ );
return pack 'a8', $argument{'CLIENT-COOKIE'} if
$argument{'CLIENT-COOKIE'};
- pack 'Ca3Na*', map $_, @argument{@field10};
+ return pack 'Ca3Na*', map $_, @argument{@field10};
}
sub _decompose {
@@ -296,6 +298,7 @@
my %hash;
@hash{@field10} = unpack 'Ca3Na*', $argument;
my @payload = map( ( $_ => $hash{$_} ), @field10 );
+ return @payload;
}
sub _image {
@@ -303,36 +306,37 @@
return unpack 'H*', $hash{'CLIENT-COOKIE'} if $hash{'CLIENT-COOKIE'};
for (qw(RESERVED HASH)) { $hash{$_} = unpack 'H*', $hash{$_} }
my @image = map "$_ => $hash{$_}", @field10;
+ return @image;
}
package Net::DNS::RR::OPT::TCP_KEEPALIVE; # RFC7828
sub _compose {
- my ( $class, %argument ) = @_;
- pack 'n', values %argument;
+ return pack 'n', pop @_;
}
sub _decompose {
my @payload = ( 'TIMEOUT' => unpack 'n', $_[1] );
+ return @payload;
}
-sub _image { join ' => ', &_decompose; }
+sub _image { return join ' => ', &_decompose; }
package Net::DNS::RR::OPT::PADDING; # RFC7830
sub _compose {
- my ( $class, %argument ) = @_;
- my ($size) = values %argument;
- pack "x$size";
+ my $size = pop @_;
+ return pack "x$size";
}
sub _decompose {
my @payload = ( 'OPTION-LENGTH' => length( $_[1] ) );
+ return @payload;
}
-sub _image { join ' => ', &_decompose; }
+sub _image { return join ' => ', &_decompose; }
package Net::DNS::RR::OPT::CHAIN; # RFC7901
@@ -340,30 +344,32 @@
sub _compose {
my ( $class, %argument ) = @_;
my ($trust_point) = values %argument;
- Net::DNS::DomainName->new($trust_point)->encode;
+ return Net::DNS::DomainName->new($trust_point)->encode;
}
sub _decompose {
my ( $class, $payload ) = @_;
my $fqdn = Net::DNS::DomainName->decode( \$payload )->string;
my @payload = ( 'CLOSEST-TRUST-POINT' => $fqdn );
+ return @payload;
}
-sub _image { join ' => ', &_decompose; }
+sub _image { return join ' => ', &_decompose; }
package Net::DNS::RR::OPT::KEY_TAG; # RFC8145
sub _compose {
shift;
- pack 'n*', @_;
+ return pack 'n*', @_;
}
sub _decompose {
my @payload = unpack 'n*', $_[1];
+ return @payload;
}
-sub _image { &_decompose; }
+sub _image { return &_decompose; }
package Net::DNS::RR::OPT::EXTENDED_ERROR; # RFC8914
@@ -373,7 +379,7 @@
sub _compose {
my ( $class, %argument ) = ( 'INFO-CODE' => 0, 'EXTRA-TEXT' => '', @_ );
my ( $code, $text ) = @argument{@field15};
- pack 'na*', $code, Net::DNS::Text->new($text)->raw;
+ return pack 'na*', $code, Net::DNS::Text->new($text)->raw;
}
sub _decompose {
@@ -382,6 +388,7 @@
'INFO-CODE' => $code,
'EXTRA-TEXT' => Net::DNS::Text->decode( \$text, 0, length $text
)->string
);
+ return @payload;
}
sub _image {
@@ -522,7 +529,7 @@
Copyright (c)2001,2002 RIPE NCC. Author Olaf M. Kolkman.
-Portions Copyright (c)2012,2017-2020 Dick Franks.
+Portions Copyright (c)2012,2017-2022 Dick Franks.
All rights reserved.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/lib/Net/DNS/RR.pm
new/Net-DNS-1.34/lib/Net/DNS/RR.pm
--- old/Net-DNS-1.33/lib/Net/DNS/RR.pm 2021-12-16 12:21:18.000000000 +0100
+++ new/Net-DNS-1.34/lib/Net/DNS/RR.pm 2022-05-30 12:07:57.000000000 +0200
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = (qw$Id: RR.pm 1856 2021-12-02 14:36:25Z willem $)[2];
+our $VERSION = (qw$Id: RR.pm 1864 2022-04-14 15:18:49Z willem $)[2];
=head1 NAME
@@ -684,11 +684,12 @@
my $subclass = join '::', __PACKAGE__, $identifier;
unless ( eval "require $subclass" ) { ## no critic
ProhibitStringyEval
- push @INC, sub {
-
Net::DNS::Parameters::_typespec("$rrtype.RRTYPE");
- };
-
+ my $perl =
Net::DNS::Parameters::_typespec("$rrtype.RRTYPE");
$subclass = join '::', __PACKAGE__,
"TYPE$rrtype";
+ push @INC, sub { # see perldoc
-f require
+ my @line = split /\n/, $perl;
+ return ( sub { defined( $_ = shift
@line ) } );
+ };
eval "require $subclass"; ## no critic
ProhibitStringyEval
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/lib/Net/DNS/Resolver/Base.pm
new/Net-DNS-1.34/lib/Net/DNS/Resolver/Base.pm
--- old/Net-DNS-1.33/lib/Net/DNS/Resolver/Base.pm 2021-12-16
12:21:18.000000000 +0100
+++ new/Net-DNS-1.34/lib/Net/DNS/Resolver/Base.pm 2022-05-30
12:07:57.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = (qw$Id: Base.pm 1855 2021-11-26 11:33:48Z willem $)[2];
+our $VERSION = (qw$Id: Base.pm 1864 2022-04-14 15:18:49Z willem $)[2];
#
@@ -257,7 +257,7 @@
sub print {
- print &string;
+ print shift->string;
return;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/lib/Net/DNS.pm
new/Net-DNS-1.34/lib/Net/DNS.pm
--- old/Net-DNS-1.33/lib/Net/DNS.pm 2021-12-16 12:21:18.000000000 +0100
+++ new/Net-DNS-1.34/lib/Net/DNS.pm 2022-05-30 12:07:57.000000000 +0200
@@ -4,9 +4,9 @@
use warnings;
our $VERSION;
-$VERSION = '1.33';
+$VERSION = '1.34';
$VERSION = eval { $VERSION };
-our $SVNVERSION = (qw$Id: DNS.pm 1861 2021-12-16 11:21:07Z willem $)[2];
+our $SVNVERSION = (qw$Id: DNS.pm 1867 2022-05-30 10:07:36Z willem $)[2];
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/t/03-parameters.t
new/Net-DNS-1.34/t/03-parameters.t
--- old/Net-DNS-1.33/t/03-parameters.t 2021-12-16 12:21:18.000000000 +0100
+++ new/Net-DNS-1.34/t/03-parameters.t 2022-05-30 12:07:57.000000000 +0200
@@ -1,15 +1,14 @@
#!/usr/bin/perl
-# $Id: 03-parameters.t 1812 2020-10-07 18:09:53Z willem $ -*-perl-*-
+# $Id: 03-parameters.t 1865 2022-05-21 09:57:49Z willem $ -*-perl-*-
#
use strict;
use warnings;
use Net::DNS::Parameters qw(:class :type :opcode :rcode :ednsoption :dsotype);
-local $Net::DNS::Parameters::DNSEXTLANG; # suppress
Extlang type queries
use Test::More tests => ( 5 + scalar keys %Net::DNS::Parameters::classbyval ) +
- ( 6 + scalar keys %Net::DNS::Parameters::typebyval ) +
+ ( 3 + scalar keys %Net::DNS::Parameters::typebyval ) +
( 3 + scalar keys %Net::DNS::Parameters::opcodebyval ) +
( 3 + scalar keys %Net::DNS::Parameters::rcodebyval ) +
( 2 + scalar keys %Net::DNS::Parameters::ednsoptionbyval ) +
@@ -39,8 +38,7 @@
{ ## check type conversion functions
- my $anon = 65500;
- foreach ( sort { $a <=> $b } $anon, keys
%Net::DNS::Parameters::typebyval ) {
+ foreach ( sort { $a <=> $b } keys %Net::DNS::Parameters::typebyval ) {
my $name = typebyval($_);
my $code = eval { typebyname($name) };
my ($exception) = split /\n/, "$@\n";
@@ -49,7 +47,7 @@
is( typebyname('*'), typebyname('ANY'), "typebyname(*)" );
my $large = 65536;
- foreach my $testcase ( "BOGUS", "Bogus", "TYPE$large" ) {
+ foreach my $testcase ("TYPE$large") {
eval { typebyname($testcase); };
my ($exception) = split /\n/, "$@\n";
ok( $exception, "typebyname($testcase)\t[$exception]" );
@@ -131,13 +129,5 @@
}
-## exercise but do not test ad hoc RRtype registration
-Net::DNS::Parameters::register( 'TOY', 65280 ); # RR
type name and number
-Net::DNS::Parameters::register( 'TOY', 65280 ); #
ignore duplicate entry
-eval { Net::DNS::Parameters::register('ANY') }; #
reject CLASS identifier
-eval { Net::DNS::Parameters::register('A') }; # reject
conflicting type name
-eval { Net::DNS::Parameters::register( 'Z', 1 ) }; # reject
conflicting type number
-
-
exit;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/t/03-question.t
new/Net-DNS-1.34/t/03-question.t
--- old/Net-DNS-1.33/t/03-question.t 2021-12-16 12:21:18.000000000 +0100
+++ new/Net-DNS-1.34/t/03-question.t 2022-05-30 12:07:57.000000000 +0200
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: 03-question.t 1815 2020-10-14 21:55:18Z willem $ -*-perl-*-
+# $Id: 03-question.t 1864 2022-04-14 15:18:49Z willem $ -*-perl-*-
#
use strict;
@@ -7,7 +7,6 @@
use Net::DNS::Question;
use Net::DNS::Parameters;
-local $Net::DNS::Parameters::DNSEXTLANG; # suppress
Extlang type queries
use Test::More tests => 105;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/t/03-rr.t new/Net-DNS-1.34/t/03-rr.t
--- old/Net-DNS-1.33/t/03-rr.t 2021-12-16 12:21:18.000000000 +0100
+++ new/Net-DNS-1.34/t/03-rr.t 2022-05-30 12:07:57.000000000 +0200
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: 03-rr.t 1856 2021-12-02 14:36:25Z willem $ -*-perl-*-
+# $Id: 03-rr.t 1864 2022-04-14 15:18:49Z willem $ -*-perl-*-
#
use strict;
@@ -7,7 +7,6 @@
use Test::More tests => 108;
use Net::DNS::RR;
-local $Net::DNS::Parameters::DNSEXTLANG; # suppress
Extlang type queries
{ ## check exception raised for
unparsable argument
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/t/05-OPT.t new/Net-DNS-1.34/t/05-OPT.t
--- old/Net-DNS-1.33/t/05-OPT.t 2021-12-16 12:21:18.000000000 +0100
+++ new/Net-DNS-1.34/t/05-OPT.t 2022-05-30 12:07:57.000000000 +0200
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: 05-OPT.t 1815 2020-10-14 21:55:18Z willem $ -*-perl-*-
+# $Id: 05-OPT.t 1864 2022-04-14 15:18:49Z willem $ -*-perl-*-
#
use strict;
@@ -128,15 +128,13 @@
$edns->option( 4 => '' );
is( length( $edns->option(4) ), 0, "option 4 => ''" );
- $edns->option( DAU => [5, 7, 8, 10] );
- is( length( $edns->option(5) ), 4, "option DAU => [5, 7, 8, 10]" );
+ $edns->option( DAU => [8, 10, 13, 14, 15, 16] );
+ is( length( $edns->option(5) ), 6, "option DAU => [ ... ]" );
$edns->option( 10 => {'CLIENT-COOKIE' => 'rawbytes'} );
is( length( $edns->option(10) ), 8, "option 10 => {CLIENT-COOKIE => ...
}" );
- $edns->option( 5 => pack 'H*', '0507080A0D0E0F10' );
-
$edns->option( 6 => pack 'H*', '010204' );
$edns->option( 7 => pack 'H*', '01' );
@@ -157,13 +155,10 @@
foreach my $option ( sort { $a <=> $b } keys
%Net::DNS::Parameters::ednsoptionbyval ) {
- my $content = $edns->option($option); # check option
interpretation
-
- my @interpretation = $edns->option($option);
+ my @interpretation = $edns->option($option); # check option
interpretation
$edns->option( $option => (@interpretation) );
-
- my $uninterpreted = $edns->option($option);
- is( $uninterpreted, $content, "compose/decompose option
$option" );
+ my @reconstitution = $edns->option($option);
+ is( "@reconstitution", "@interpretation", "compose/decompose
option $option" );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/t/08-IPv4.t new/Net-DNS-1.34/t/08-IPv4.t
--- old/Net-DNS-1.33/t/08-IPv4.t 2021-12-16 12:21:18.000000000 +0100
+++ new/Net-DNS-1.34/t/08-IPv4.t 2022-05-30 12:07:57.000000000 +0200
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: 08-IPv4.t 1847 2021-08-11 10:02:44Z willem $ -*-perl-*-
+# $Id: 08-IPv4.t 1865 2022-05-21 09:57:49Z willem $ -*-perl-*-
#
use strict;
@@ -65,7 +65,7 @@
$resolver->nameservers(@nsdname);
$resolver->force_v4(1);
[$resolver->nameservers()];
-};
+} || [];
exit( plan skip_all => 'Unable to resolve nameserver name' ) unless scalar
@$IP;
diag join( "\n\t", 'will use nameservers', @$IP ) if $debug;
@@ -73,7 +73,7 @@
Net::DNS::Resolver->debug($debug);
-plan tests => 66;
+plan tests => 65;
NonFatalBegin();
@@ -461,11 +461,6 @@
}
-{ ## exercise Net::DNS::Extlang query
- ok( Net::DNS::RR->new('. MD'), 'Net::DNS::Extlang query' );
-}
-
-
NonFatalEnd();
exit;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/t/08-IPv6.t new/Net-DNS-1.34/t/08-IPv6.t
--- old/Net-DNS-1.33/t/08-IPv6.t 2021-12-16 12:21:18.000000000 +0100
+++ new/Net-DNS-1.34/t/08-IPv6.t 2022-05-30 12:07:57.000000000 +0200
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: 08-IPv6.t 1847 2021-08-11 10:02:44Z willem $ -*-perl-*-
+# $Id: 08-IPv6.t 1865 2022-05-21 09:57:49Z willem $ -*-perl-*-
#
use strict;
@@ -68,7 +68,7 @@
$resolver->nameservers(@nsdname);
$resolver->force_v6(1);
[$resolver->nameservers()];
-};
+} || [];
exit( plan skip_all => 'Unable to resolve nameserver name' ) unless scalar
@$IP;
diag join( "\n\t", 'will use nameservers', @$IP ) if $debug;
@@ -76,7 +76,7 @@
Net::DNS::Resolver->debug($debug);
-plan tests => 66;
+plan tests => 65;
NonFatalBegin();
@@ -464,11 +464,6 @@
}
-{ ## exercise Net::DNS::Extlang query
- ok( Net::DNS::RR->new('. MD'), 'Net::DNS::Extlang query' );
-}
-
-
NonFatalEnd();
exit;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/t/21-NSEC-typelist.t
new/Net-DNS-1.34/t/21-NSEC-typelist.t
--- old/Net-DNS-1.33/t/21-NSEC-typelist.t 2021-12-16 12:21:18.000000000
+0100
+++ new/Net-DNS-1.34/t/21-NSEC-typelist.t 2022-05-30 12:07:57.000000000
+0200
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: 21-NSEC-typelist.t 1856 2021-12-02 14:36:25Z willem $ -*-perl-*-
+# $Id: 21-NSEC-typelist.t 1865 2022-05-21 09:57:49Z willem $ -*-perl-*-
#
use strict;
@@ -9,7 +9,6 @@
use Net::DNS;
use Net::DNS::DomainName;
use Net::DNS::Parameters qw(:type);
-local $Net::DNS::Parameters::DNSEXTLANG; # suppress
Extlang type queries
my @prerequisite = qw(
Net::DNS::RR::NSEC
@@ -21,7 +20,7 @@
exit;
}
-plan tests => 80;
+plan tests => 79;
my $rr = Net::DNS::RR->new(
@@ -34,7 +33,7 @@
is( $rr->typemap(256), undef, 'typemap($type) undefined for empty map block' );
foreach my $rrtype ( 0, 256, 512, 768, 1024 ) {
- my $type = typebyval($rrtype);
+ my $type = "TYPE$rrtype";
$rr->typelist($type);
my $rdata = $rr->rdata;
my ( $name, $offset ) = Net::DNS::DomainName->decode( \$rdata );
@@ -51,7 +50,7 @@
is( $l, 1 + ( $rrtype >> 3 ), "expected map length for $type" );
}
-foreach my $rrtype ( 1 .. 40, 42 .. 64 ) {
+foreach my $rrtype ( 1 .. 40, 42 .. 53, 55 .. 64 ) {
my $type = typebyval($rrtype);
$rr->typelist($type);
is( $rr->typemap($type), 1, "expected map bit for $type" );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-DNS-1.33/t/32-NSEC3-typelist.t
new/Net-DNS-1.34/t/32-NSEC3-typelist.t
--- old/Net-DNS-1.33/t/32-NSEC3-typelist.t 2021-12-16 12:21:18.000000000
+0100
+++ new/Net-DNS-1.34/t/32-NSEC3-typelist.t 2022-05-30 12:07:57.000000000
+0200
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: 32-NSEC3-typelist.t 1856 2021-12-02 14:36:25Z willem $ -*-perl-*-
+# $Id: 32-NSEC3-typelist.t 1865 2022-05-21 09:57:49Z willem $ -*-perl-*-
#
use strict;
@@ -8,7 +8,6 @@
use Net::DNS;
use Net::DNS::Text;
use Net::DNS::Parameters qw(:type);
-local $Net::DNS::Parameters::DNSEXTLANG; # suppress
Extlang type queries
my @prerequisite = qw(
Net::DNS::RR::NSEC3
@@ -20,7 +19,7 @@
exit;
}
-plan tests => 78;
+plan tests => 77;
my $rr = Net::DNS::RR->new(
@@ -29,7 +28,7 @@
);
foreach my $rrtype ( 0, 256, 512, 768, 1024 ) {
- my $type = typebyval($rrtype);
+ my $type = "TYPE$rrtype";
$rr->typelist($type);
my $rdata = $rr->rdata;
my ( $text, $offset ) = Net::DNS::Text->decode( \$rdata, 4 );
@@ -48,7 +47,7 @@
is( $l, 1 + ( $rrtype >> 3 ), "expected map length for $type" );
}
-foreach my $rrtype ( 1 .. 40, 42 .. 64 ) {
+foreach my $rrtype ( 1 .. 40, 42 .. 53, 55 .. 64 ) {
my $type = typebyval($rrtype);
$rr->typelist($type);
is( $rr->typemap($type), 1, "expected map bit for $type" );
