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 2023-06-14 16:28:43 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Net-DNS (Old) and /work/SRC/openSUSE:Factory/.perl-Net-DNS.new.15902 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Net-DNS" Wed Jun 14 16:28:43 2023 rev:72 rq:1092780 version:1.39 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Net-DNS/perl-Net-DNS.changes 2023-06-04 00:11:58.537309139 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Net-DNS.new.15902/perl-Net-DNS.changes 2023-06-14 16:28:54.942311964 +0200 @@ -1,0 +2,6 @@ +Fri Jun 2 03:07:09 UTC 2023 - Tina Müller <[email protected]> + +- updated to 1.39 + see /usr/share/doc/packages/perl-Net-DNS/Changes + +------------------------------------------------------------------- Old: ---- Net-DNS-1.38.tar.gz New: ---- Net-DNS-1.39.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Net-DNS.spec ++++++ --- /var/tmp/diff_new_pack.bgiEzH/_old 2023-06-14 16:28:56.286320225 +0200 +++ /var/tmp/diff_new_pack.bgiEzH/_new 2023-06-14 16:28:56.318320421 +0200 @@ -18,7 +18,7 @@ %define cpan_name Net-DNS Name: perl-Net-DNS -Version: 1.38 +Version: 1.39 Release: 0 License: MIT Summary: Perl Interface to the Domain Name System ++++++ Net-DNS-1.38.tar.gz -> Net-DNS-1.39.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.38/Changes new/Net-DNS-1.39/Changes --- old/Net-DNS-1.38/Changes 2023-05-09 10:06:34.000000000 +0200 +++ new/Net-DNS-1.39/Changes 2023-06-01 13:41:00.000000000 +0200 @@ -1,4 +1,10 @@ -$Id: Changes 1922 2023-05-08 18:46:00Z willem $ -*-text-*- +$Id: Changes 1929 2023-06-01 11:40:49Z willem $ -*-text-*- + + +**** 1.39 Jun 1, 2023 + +Fix rt.cpan.org #148340 + udpsize uninitialized value **** 1.38 May 9, 2023 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.38/META.json new/Net-DNS-1.39/META.json --- old/Net-DNS-1.38/META.json 2023-05-09 10:06:51.000000000 +0200 +++ new/Net-DNS-1.39/META.json 2023-06-01 13:41:16.000000000 +0200 @@ -71,6 +71,6 @@ } }, "release_status" : "stable", - "version" : "1.38", + "version" : "1.39", "x_serialization_backend" : "JSON::PP version 4.08" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.38/META.yml new/Net-DNS-1.39/META.yml --- old/Net-DNS-1.38/META.yml 2023-05-09 10:06:51.000000000 +0200 +++ new/Net-DNS-1.39/META.yml 2023-06-01 13:41:16.000000000 +0200 @@ -47,5 +47,5 @@ Scalar::Util: '1.19' Time::Local: '1.19' perl: '5.008009' -version: '1.38' +version: '1.39' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.38/Makefile.PL new/Net-DNS-1.39/Makefile.PL --- old/Net-DNS-1.38/Makefile.PL 2023-05-09 10:06:34.000000000 +0200 +++ new/Net-DNS-1.39/Makefile.PL 2023-06-01 13:41:00.000000000 +0200 @@ -1,5 +1,5 @@ # -# $Id: Makefile.PL 1921 2023-05-08 18:39:59Z willem $ -*-perl-*- +# $Id: Makefile.PL 1925 2023-05-31 11:58:59Z willem $ -*-perl-*- # use 5.008009; @@ -22,7 +22,7 @@ ABSTRACT_FROM => $module, AUTHOR => $author, LICENSE => 'mit', - MIN_PERL_VERSION => '5.008009', + MIN_PERL_VERSION => 5.008009, CONFIGURE_REQUIRES => { 'ExtUtils::MakeMaker' => 6.48, 'Getopt::Long' => 2.43, @@ -215,14 +215,14 @@ package MY; ## customise generated Makefile -sub test { - return join '', shift->SUPER::test(), <<'END' if $^O =~ /MSWin/i; +sub constants { + return join "\n", shift->SUPER::constants(), <<'END' if $^O =~ /MSWin/i; +# include test directory TEST_DIR = t FULLPERLRUN = $(FULLPERL) "-I$(TEST_DIR)" END - - return join '', shift->SUPER::test(), <<'END'; -# suppress parallel test execution include test directory + return join "\n", shift->SUPER::constants(), <<'END'; +# suppress parallel test execution include test directory TEST_DIR = t FULLPERLRUN = HARNESS_OPTIONS=j1:c $(FULLPERL) "-I$(TEST_DIR)" END @@ -230,8 +230,7 @@ sub dist { - return join '', shift->SUPER::dist(), <<'END'; - + return join "\n", shift->SUPER::dist(), <<'END'; # $(PERM_RWX) raises security issues downstream PREOP = $(CHMOD) $(PERM_RW) $(DISTVNAME)$(DFSEP)contrib$(DFSEP)* $(DISTVNAME)$(DFSEP)demo$(DFSEP)* END diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.38/lib/Net/DNS/Nameserver.pm new/Net-DNS-1.39/lib/Net/DNS/Nameserver.pm --- old/Net-DNS-1.38/lib/Net/DNS/Nameserver.pm 2023-05-09 10:06:34.000000000 +0200 +++ new/Net-DNS-1.39/lib/Net/DNS/Nameserver.pm 2023-06-01 13:41:00.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION = (qw$Id: Nameserver.pm 1923 2023-05-09 08:06:25Z willem $)[2]; +our $VERSION = (qw$Id: Nameserver.pm 1925 2023-05-31 11:58:59Z willem $)[2]; =head1 NAME @@ -118,7 +118,6 @@ sub ReplyHandler { my ( $self, $qname, $qclass, $qtype, $peerhost, $query, $conn ) = @_; - my $opcode = $query->header->opcode; my $RRhash = $self->{index}; my $rcode; my %headermask; @@ -134,26 +133,27 @@ } else { $rcode = 'NOTAUTH'; } + return ( $rcode, \@ans, [], [], {}, {} ); } + my @RRname = @{$self->{namelist}}; # pre-sorted, longest first { my $RRlist = $RRhash->{lc $qname} || []; # hash, then linear search my @match = @$RRlist; # assume $qclass always 'IN' if ( scalar(@match) ) { # exact match $rcode = 'NOERROR'; - } elsif ( grep {/\.$qname$/i} keys %$RRhash ) { # empty non-terminal + } elsif ( grep {/\.$qname$/i} @RRname ) { # empty non-terminal $rcode = 'NOERROR'; # [NODATA] } else { - my @namelist = @{$self->{namelist}}; # pre-sorted, longest first $rcode = 'NXDOMAIN'; - foreach ( grep {/^[*][.]/} @namelist ) { + foreach ( grep {/^[*][.]/} @RRname ) { my $wildcard = $_; # match wildcard per RFC4592 s/^\*//; # delete leading asterisk s/([.?*+])/\\$1/g; # escape dots and regex quantifiers next unless $qname =~ /[.]?([^.]+$_)$/i; my $encloser = $1; # check no ENT encloses qname $rcode = 'NOERROR'; - last if grep {/(^|\.)$encloser$/i} @namelist; # [NODATA] + last if grep {/(^|\.)$encloser$/i} @RRname; # [NODATA] my ($q) = $query->question; # synthesise RR at qname foreach my $rr ( @{$RRhash->{$wildcard}} ) { @@ -167,7 +167,9 @@ push @ans, my @cname = grep { $_->type eq 'CNAME' } @match; $qname = $_->cname for @cname; redo if @cname; - unless ( push @ans, grep { $_->type eq $qtype } @match ) { + push @ans, @match if $qtype eq 'ANY'; # traditional, now out of favour + push @ans, grep { $_->type eq $qtype } @match; + unless (@ans) { foreach ( @{$self->{zonelist}} ) { s/([.?*+])/\\$1/g; # escape dots and regex quantifiers next unless $qname =~ /[^.]+[.]$_[.]?$/i; @@ -266,9 +268,9 @@ $header->rcode($rcode); - $reply->{answer} = [@$ans] if $ans; - $reply->{authority} = [@$auth] if $auth; - $reply->{additional} = [@$add] if $add; + push @{$reply->{answer}}, @$ans if $ans; + push @{$reply->{authority}}, @$auth if $auth; + push @{$reply->{additional}}, @$add if $add; } while ( my ( $key, $value ) = each %{$headermask || {}} ) { @@ -374,13 +376,13 @@ my $reply = $self->make_reply( $query, $socket ); die 'Failed to create reply' unless defined $reply; - my $max_len = ( $query && $self->{Truncate} ) ? $query->edns->UDPsize : undef; + my @UDPsize = ( $query && $self->{Truncate} ) ? $query->edns->UDPsize : (); if ($verbose) { - my $response = $reply->data($max_len); + my $response = $reply->data(@UDPsize); print 'UDP response (', length($response), ' octets) - '; print $socket->send($response) ? "sent" : "failed: $!", "\n"; } else { - $socket->send( $reply->data($max_len) ); + $socket->send( $reply->data(@UDPsize) ); } alarm 0; close $socket; @@ -549,8 +551,9 @@ local $SIG{CHLD} = \&reaper; my @pid = shift->start_server; local $SIG{TERM} = sub { kill( 'TERM', @pid ) }; - 1 while waitpid( -1, 0 ) > 0; ## park main process until - return; ## user CTRL_C kills the children + 1 while waitpid( -1, 0 ) > 0; + logmsg "@pid terminated"; + return; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.38/lib/Net/DNS/Packet.pm new/Net-DNS-1.39/lib/Net/DNS/Packet.pm --- old/Net-DNS-1.38/lib/Net/DNS/Packet.pm 2023-05-09 10:06:34.000000000 +0200 +++ new/Net-DNS-1.39/lib/Net/DNS/Packet.pm 2023-06-01 13:41:00.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION = (qw$Id: Packet.pm 1910 2023-03-30 19:16:30Z willem $)[2]; +our $VERSION = (qw$Id: Packet.pm 1925 2023-05-31 11:58:59Z willem $)[2]; =head1 NAME @@ -267,8 +267,7 @@ =cut sub reply { - my $query = shift; - my $UDPmax = shift; + my ( $query, @UDPmax ) = @_; my $qheadr = $query->header; croak 'erroneous qr flag in query packet' if $qheadr->qr; @@ -289,7 +288,7 @@ my $edns = $reply->edns(); CORE::push( @{$reply->{additional}}, $edns ); - $edns->udpsize($UDPmax); + $edns->udpsize(@UDPmax); return $reply; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.38/lib/Net/DNS.pm new/Net-DNS-1.39/lib/Net/DNS.pm --- old/Net-DNS-1.38/lib/Net/DNS.pm 2023-05-09 10:06:34.000000000 +0200 +++ new/Net-DNS-1.39/lib/Net/DNS.pm 2023-06-01 13:41:00.000000000 +0200 @@ -4,9 +4,9 @@ use warnings; our $VERSION; -$VERSION = '1.38'; +$VERSION = '1.39'; $VERSION = eval {$VERSION}; -our $SVNVERSION = (qw$Id: DNS.pm 1922 2023-05-08 18:46:00Z willem $)[2]; +our $SVNVERSION = (qw$Id: DNS.pm 1929 2023-06-01 11:40:49Z willem $)[2]; =head1 NAME diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.38/t/08-IPv4.t new/Net-DNS-1.39/t/08-IPv4.t --- old/Net-DNS-1.38/t/08-IPv4.t 2023-05-09 10:06:34.000000000 +0200 +++ new/Net-DNS-1.39/t/08-IPv4.t 2023-06-01 13:41:00.000000000 +0200 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: 08-IPv4.t 1908 2023-03-15 07:28:50Z willem $ -*-perl-*- +# $Id: 08-IPv4.t 1925 2023-05-31 11:58:59Z willem $ -*-perl-*- # use strict; @@ -30,13 +30,13 @@ my $resolver = Net::DNS::Resolver->new( igntc => 1 ); exit plan skip_all => 'No nameservers' unless $resolver->nameservers; - my $reply = $resolver->send(qw(. NS IN)) || die; + my $reply = $resolver->send(qw(. NS IN)) || die $!; my @ns = grep { $_->type eq 'NS' } $reply->answer, $reply->authority; exit plan skip_all => 'Local nameserver broken' unless scalar @ns; 1; -} || exit( plan skip_all => 'Non-responding local nameserver' ); +} || exit( plan skip_all => "Non-responding local nameserver: $@" ); eval { @@ -44,7 +44,7 @@ $resolver->force_v4(1); exit plan skip_all => 'No IPv4 transport' unless $resolver->nameservers; - my $reply = $resolver->send(qw(. NS IN)) || die; + my $reply = $resolver->send(qw(. NS IN)) || die $!; my $from = $reply->from(); my @ns = grep { $_->type eq 'NS' } $reply->answer, $reply->authority; @@ -53,7 +53,7 @@ exit plan skip_all => "Non-authoritative response from $from" unless $reply->header->aa; 1; -} || exit( plan skip_all => 'Unable to reach global root nameservers' ); +} || exit( plan skip_all => "Cannot access global root nameservers: $@" ); my $IP = eval { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.38/t/08-IPv6.t new/Net-DNS-1.39/t/08-IPv6.t --- old/Net-DNS-1.38/t/08-IPv6.t 2023-05-09 10:06:34.000000000 +0200 +++ new/Net-DNS-1.39/t/08-IPv6.t 2023-06-01 13:41:00.000000000 +0200 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: 08-IPv6.t 1908 2023-03-15 07:28:50Z willem $ -*-perl-*- +# $Id: 08-IPv6.t 1925 2023-05-31 11:58:59Z willem $ -*-perl-*- # use strict; @@ -33,13 +33,13 @@ my $resolver = Net::DNS::Resolver->new( igntc => 1 ); exit plan skip_all => 'No nameservers' unless $resolver->nameservers; - my $reply = $resolver->send(qw(. NS IN)) || die; + my $reply = $resolver->send(qw(. NS IN)) || die $!; my @ns = grep { $_->type eq 'NS' } $reply->answer, $reply->authority; exit plan skip_all => 'Local nameserver broken' unless scalar @ns; 1; -} || exit( plan skip_all => 'Non-responding local nameserver' ); +} || exit( plan skip_all => "Non-responding local nameserver: $@" ); eval { @@ -47,7 +47,7 @@ $resolver->force_v6(1); exit plan skip_all => 'No IPv6 transport' unless $resolver->nameservers; - my $reply = $resolver->send(qw(. NS IN)) || die; + my $reply = $resolver->send(qw(. NS IN)) || die $!; my $from = $reply->from(); my @ns = grep { $_->type eq 'NS' } $reply->answer, $reply->authority; @@ -56,7 +56,7 @@ exit plan skip_all => "Non-authoritative response from $from" unless $reply->header->aa; 1; -} || exit( plan skip_all => 'Unable to reach global root nameservers' ); +} || exit( plan skip_all => "Cannot access global root nameservers: $@" ); my $IP = eval { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.38/t/08-recurse.t new/Net-DNS-1.39/t/08-recurse.t --- old/Net-DNS-1.38/t/08-recurse.t 2023-05-09 10:06:34.000000000 +0200 +++ new/Net-DNS-1.39/t/08-recurse.t 2023-06-01 13:41:00.000000000 +0200 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: 08-recurse.t 1910 2023-03-30 19:16:30Z willem $ -*-perl-*- +# $Id: 08-recurse.t 1925 2023-05-31 11:58:59Z willem $ -*-perl-*- # use strict; @@ -21,20 +21,20 @@ my $resolver = Net::DNS::Resolver->new(); exit plan skip_all => 'No nameservers' unless $resolver->nameservers; - my $reply = $resolver->send(qw(. NS IN)) || die; + my $reply = $resolver->send(qw(. NS IN)) || die $!; my @ns = grep { $_->type eq 'NS' } $reply->answer, $reply->authority; exit plan skip_all => 'Local nameserver broken' unless scalar @ns; 1; -} || exit( plan skip_all => 'Non-responding local nameserver' ); +} || exit( plan skip_all => "Non-responding local nameserver: $@" ); eval { my $resolver = Net::DNS::Resolver->new( nameservers => [@hints] ); exit plan skip_all => 'No nameservers' unless $resolver->nameservers; - my $reply = $resolver->send(qw(. NS IN)) || die; + my $reply = $resolver->send(qw(. NS IN)) || die $!; my $from = $reply->from(); my @ns = grep { $_->type eq 'NS' } $reply->answer; @@ -43,7 +43,7 @@ exit plan skip_all => "Non-authoritative response from $from" unless $reply->header->aa; 1; -} || exit( plan skip_all => 'Unable to reach global root nameservers' ); +} || exit( plan skip_all => "Cannot access global root nameservers: $@" ); plan tests => 10;
