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 2026-07-28 17:49:50 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Net-DNS (Old) and /work/SRC/openSUSE:Factory/.perl-Net-DNS.new.2004 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Net-DNS" Tue Jul 28 17:49:50 2026 rev:85 rq:1368056 version:1.560.0 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Net-DNS/perl-Net-DNS.changes 2026-06-15 19:41:40.346960363 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Net-DNS.new.2004/perl-Net-DNS.changes 2026-07-28 17:50:52.957729696 +0200 @@ -1,0 +2,17 @@ +Sat Jul 18 07:10:45 UTC 2026 - Tina Müller <[email protected]> + +- updated to 1.560.0 (1.56) + see /usr/share/doc/packages/perl-Net-DNS/Changes + + Fix rt.cpan.org #180088 + Documentation issue for Net::DNS::RR::RRSIG::verify() + Fix rt.cpan.org #179946 + Denial of Service via long DNS compression chains + CVE-2026-64194 bsc#1272214 + Fix rt.cpan.org #179945 + Remote code injection via EDNS EXTENDED ERROR + CVE-2026-64193 bsc#1272212 + Fix rt.cpan.org #179692/#176900 + UNIX.pm: Unreachable code warning using Apache/mod_perl + +------------------------------------------------------------------- Old: ---- Net-DNS-1.55.tar.gz New: ---- Net-DNS-1.56.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Net-DNS.spec ++++++ --- /var/tmp/diff_new_pack.RbLytk/_old 2026-07-28 17:50:54.269775575 +0200 +++ /var/tmp/diff_new_pack.RbLytk/_new 2026-07-28 17:50:54.281775995 +0200 @@ -18,10 +18,10 @@ %define cpan_name Net-DNS Name: perl-Net-DNS -Version: 1.550.0 +Version: 1.560.0 Release: 0 -# 1.55 -> normalize -> 1.550.0 -%define cpan_version 1.55 +# 1.56 -> normalize -> 1.560.0 +%define cpan_version 1.56 License: MIT Summary: Perl Interface to the Domain Name System URL: https://metacpan.org/release/%{cpan_name} @@ -74,7 +74,7 @@ #Requires: perl(warnings) >= 1.0501 Provides: perl(Net::DNS) = %{version} Provides: perl(Net::DNS::Domain) = 2002.0.0 -Provides: perl(Net::DNS::DomainName) = 2005.0.0 +Provides: perl(Net::DNS::DomainName) = 2054.0.0 Provides: perl(Net::DNS::DomainName1035) Provides: perl(Net::DNS::DomainName2535) Provides: perl(Net::DNS::Header) = 2042.0.0 @@ -83,7 +83,7 @@ Provides: perl(Net::DNS::Mailbox2535) Provides: perl(Net::DNS::Nameserver) = 2002.0.0 Provides: perl(Net::DNS::Packet) = 2003.0.0 -Provides: perl(Net::DNS::Parameters) = 2046.0.0 +Provides: perl(Net::DNS::Parameters) = 2054.0.0 Provides: perl(Net::DNS::Question) = 2002.0.0 Provides: perl(Net::DNS::RR) = 2037.0.0 Provides: perl(Net::DNS::RR::A) = 2003.0.0 @@ -98,7 +98,7 @@ Provides: perl(Net::DNS::RR::CERT) = 2042.0.0 Provides: perl(Net::DNS::RR::CNAME) = 2003.0.0 Provides: perl(Net::DNS::RR::CSYNC) = 2003.0.0 -Provides: perl(Net::DNS::RR::DELEG) = 2046.0.0 +Provides: perl(Net::DNS::RR::DELEG) = 2053.0.0 Provides: perl(Net::DNS::RR::DHCID) = 2003.0.0 Provides: perl(Net::DNS::RR::DNAME) = 2003.0.0 Provides: perl(Net::DNS::RR::DNSKEY) = 2042.0.0 @@ -131,7 +131,7 @@ Provides: perl(Net::DNS::RR::NSEC3PARAM) = 2003.0.0 Provides: perl(Net::DNS::RR::NULL) = 2002.0.0 Provides: perl(Net::DNS::RR::OPENPGPKEY) = 2003.0.0 -Provides: perl(Net::DNS::RR::OPT) = 2005.0.0 +Provides: perl(Net::DNS::RR::OPT) = 2054.0.0 Provides: perl(Net::DNS::RR::OPT::CHAIN) Provides: perl(Net::DNS::RR::OPT::CLIENT_SUBNET) Provides: perl(Net::DNS::RR::OPT::COOKIE) @@ -150,9 +150,9 @@ Provides: perl(Net::DNS::RR::PX) = 2003.0.0 Provides: perl(Net::DNS::RR::RESINFO) = 2003.0.0 Provides: perl(Net::DNS::RR::RP) = 2002.0.0 -Provides: perl(Net::DNS::RR::RRSIG) = 2042.0.0 +Provides: perl(Net::DNS::RR::RRSIG) = 2057.0.0 Provides: perl(Net::DNS::RR::RT) = 2003.0.0 -Provides: perl(Net::DNS::RR::SIG) = 2042.0.0 +Provides: perl(Net::DNS::RR::SIG) = 2057.0.0 Provides: perl(Net::DNS::RR::SMIMEA) = 2003.0.0 Provides: perl(Net::DNS::RR::SOA) = 2002.0.0 Provides: perl(Net::DNS::RR::SPF) = 2003.0.0 @@ -167,10 +167,10 @@ Provides: perl(Net::DNS::RR::X25) = 2002.0.0 Provides: perl(Net::DNS::RR::ZONEMD) = 2003.0.0 Provides: perl(Net::DNS::Resolver) = 2017.0.0 -Provides: perl(Net::DNS::Resolver::Base) = 2049.0.0 +Provides: perl(Net::DNS::Resolver::Base) = 2057.0.0 Provides: perl(Net::DNS::Resolver::MSWin32) = 2002.0.0 Provides: perl(Net::DNS::Resolver::Recurse) = 2002.0.0 -Provides: perl(Net::DNS::Resolver::UNIX) = 2046.0.0 +Provides: perl(Net::DNS::Resolver::UNIX) = 2053.0.0 Provides: perl(Net::DNS::Resolver::android) = 2007.0.0 Provides: perl(Net::DNS::Resolver::cygwin) = 2002.0.0 Provides: perl(Net::DNS::Resolver::os2) = 2007.0.0 ++++++ Net-DNS-1.55.tar.gz -> Net-DNS-1.56.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.55/Changes new/Net-DNS-1.56/Changes --- old/Net-DNS-1.55/Changes 2026-06-11 16:08:47.000000000 +0200 +++ new/Net-DNS-1.56/Changes 2026-07-17 12:09:44.000000000 +0200 @@ -1,4 +1,19 @@ -$Id: Changes 2052 2026-06-11 14:08:37Z willem $ -*-text-*- +$Id: Changes 2058 2026-07-17 10:09:31Z willem $ -*-text-*- + + +**** 1.56 Jul 18, 2027 + +Fix rt.cpan.org #180088 + Documentation issue for Net::DNS::RR::RRSIG::verify() + +Fix rt.cpan.org #179946 + Denial of Service via long DNS compression chains + +Fix rt.cpan.org #179945 + Remote code injection via EDNS EXTENDED ERROR + +Fix rt.cpan.org #179692/#176900 + UNIX.pm: Unreachable code warning using Apache/mod_perl **** 1.55 Jun 11, 2026 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.55/META.json new/Net-DNS-1.56/META.json --- old/Net-DNS-1.55/META.json 2026-06-11 16:08:56.000000000 +0200 +++ new/Net-DNS-1.56/META.json 2026-07-17 12:10:11.000000000 +0200 @@ -79,6 +79,6 @@ } }, "release_status" : "stable", - "version" : "1.55", + "version" : "1.56", "x_serialization_backend" : "JSON::PP version 4.16" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.55/META.yml new/Net-DNS-1.56/META.yml --- old/Net-DNS-1.55/META.yml 2026-06-11 16:08:56.000000000 +0200 +++ new/Net-DNS-1.56/META.yml 2026-07-17 12:10:11.000000000 +0200 @@ -55,5 +55,5 @@ perl: '5.008009' strict: '1.03' warnings: '1.0501' -version: '1.55' +version: '1.56' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.55/lib/Net/DNS/DomainName.pm new/Net-DNS-1.56/lib/Net/DNS/DomainName.pm --- old/Net-DNS-1.55/lib/Net/DNS/DomainName.pm 2026-06-11 16:08:47.000000000 +0200 +++ new/Net-DNS-1.56/lib/Net/DNS/DomainName.pm 2026-07-17 12:09:44.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION = (qw$Id: DomainName.pm 2005 2025-01-28 13:22:10Z willem $)[2]; +our $VERSION = (qw$Id: DomainName.pm 2054 2026-07-10 09:37:11Z willem $)[2]; =head1 NAME @@ -79,8 +79,8 @@ my $self = bless {label => $label}, shift; my $buffer = shift; # reference to data buffer my $offset = shift || 0; # offset within buffer - my $linked = shift; # caller's compression index - my $cache = $linked; + my $cache = shift; # caller's compression index + my $depth = shift; # recursion depth $cache->{$offset} = $self; # hashed objectref by offset my $buflen = length $$buffer; @@ -100,10 +100,9 @@ } else { # compression pointer my $link = 0x3FFF & unpack( "\@$index n", $$buffer ); croak 'corrupt compression pointer' unless $link < $offset; - croak 'invalid compression pointer' unless $linked; + croak 'deep compression recursion' if $depth++ > 120; - # uncoverable condition false - $self->{origin} = $cache->{$link} ||= __PACKAGE__->decode( $buffer, $link, $cache ); + $self->{origin} = $cache->{$link} ||= __PACKAGE__->decode( $buffer, $link, $cache, $depth ); return wantarray ? ( $self, $index + 2 ) : $self; } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.55/lib/Net/DNS/Parameters.pm new/Net-DNS-1.56/lib/Net/DNS/Parameters.pm --- old/Net-DNS-1.55/lib/Net/DNS/Parameters.pm 2026-06-11 16:08:47.000000000 +0200 +++ new/Net-DNS-1.56/lib/Net/DNS/Parameters.pm 2026-07-17 12:09:44.000000000 +0200 @@ -3,13 +3,13 @@ ################################################ ## ## Domain Name System (DNS) Parameters -## (last updated 2026-04-28) +## (last updated 2026-07-06) ## ################################################ use strict; use warnings; -our $VERSION = (qw$Id: Parameters.pm 2046 2026-06-01 13:23:01Z willem $)[2]; +our $VERSION = (qw$Id: Parameters.pm 2054 2026-07-10 09:37:11Z willem $)[2]; use integer; use Carp; @@ -307,6 +307,8 @@ 30 => 'Invalid Query Type', # RFC9824 31 => 'Rate Limited', # draft-muks-dns-ede-rate-limited-02 32 => 'Over Quota', # draft-muks-dns-ede-rate-limited-02 + 33 => 'Negative Trust Anchor', # draft-farrokhi-dnsop-ede-nta-00 + 34 => 'New Delegation Only', # draft-ietf-deleg-10 ); our %dnserrorbyval = @dnserrorbyval; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.55/lib/Net/DNS/RR/DELEG.pm new/Net-DNS-1.56/lib/Net/DNS/RR/DELEG.pm --- old/Net-DNS-1.55/lib/Net/DNS/RR/DELEG.pm 2026-06-11 16:08:47.000000000 +0200 +++ new/Net-DNS-1.56/lib/Net/DNS/RR/DELEG.pm 2026-07-17 12:09:44.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = (qw$Id: DELEG.pm 2046 2026-06-01 13:23:01Z willem $)[2]; +our $VERSION = (qw$Id: DELEG.pm 2053 2026-07-07 10:18:23Z willem $)[2]; use base qw(Net::DNS::RR); @@ -74,7 +74,7 @@ my $val = shift @parameters; if ( my $name = $keybycode{$key} ) { my @val = grep {length} $self->$name; - s/,/\\,/g foreach @val; # escape embedded commas + s/,/\\044/g foreach @val; # escape embedded commas my @rhs = grep {length} join ',', @val; push @rdata, join '=', $name, @rhs; } else { @@ -377,6 +377,6 @@ =head1 SEE ALSO L<perl> L<Net::DNS> L<Net::DNS::RR> -draft-ietf-deleg-08 +draft-ietf-deleg-10 =cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.55/lib/Net/DNS/RR/OPT.pm new/Net-DNS-1.56/lib/Net/DNS/RR/OPT.pm --- old/Net-DNS-1.55/lib/Net/DNS/RR/OPT.pm 2026-06-11 16:08:47.000000000 +0200 +++ new/Net-DNS-1.56/lib/Net/DNS/RR/OPT.pm 2026-07-17 12:09:44.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = (qw$Id: OPT.pm 2005 2025-01-28 13:22:10Z willem $)[2]; +our $VERSION = (qw$Id: OPT.pm 2054 2026-07-10 09:37:11Z willem $)[2]; use base qw(Net::DNS::RR); @@ -99,8 +99,7 @@ sub generic { ## override RR method my $self = shift; local $self->{class} = $self->udpsize; - my @xttl = ( $self->rcode >> 4, $self->version, $self->flags ); - local $self->{ttl} = unpack 'N', pack( 'C2n', @xttl ); + local $self->{ttl} = $self->_ttl; return $self->SUPER::generic; } @@ -452,6 +451,7 @@ my $extra = Net::DNS::Text->decode( \$text, 0, length $text ); for ( $extra->value ) { last unless /^[\[\{]/; + s/[`]([^`]*)[`]/$1/g; ## suppress backticks s/([\$\@])/\\$1/g; ## Here be dragons! my $REGEX = q/("[^"]*"|[\[\]{}:,]|[-0-9.Ee+]+)|\s+|(.)/; my @split = grep { defined && length } split /$REGEX/o; @@ -636,7 +636,7 @@ Copyright (c)2001,2002 RIPE NCC. Author Olaf M. Kolkman. -Portions Copyright (c)2012,2017-2024 Dick Franks. +Portions Copyright (c)2012,2017-2026 Dick Franks. All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.55/lib/Net/DNS/RR/RRSIG.pm new/Net-DNS-1.56/lib/Net/DNS/RR/RRSIG.pm --- old/Net-DNS-1.55/lib/Net/DNS/RR/RRSIG.pm 2026-06-11 16:08:47.000000000 +0200 +++ new/Net-DNS-1.56/lib/Net/DNS/RR/RRSIG.pm 2026-07-17 12:09:44.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = (qw$Id: RRSIG.pm 2042 2025-12-24 10:23:11Z willem $)[2]; +our $VERSION = (qw$Id: RRSIG.pm 2057 2026-07-16 10:05:04Z willem $)[2]; use base qw(Net::DNS::RR); @@ -750,7 +750,7 @@ method verifies the RRset against the signature contained in the $sigrr object itself using the public key in $keyrr. -The second argument can either be a Net::DNS::RR::KEYRR object or a +The second argument can either be a Net::DNS::RR::DNSKEY object or a reference to an array of such objects. Verification will return successful as soon as one of the keys in the array leads to positive validation. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.55/lib/Net/DNS/RR/SIG.pm new/Net-DNS-1.56/lib/Net/DNS/RR/SIG.pm --- old/Net-DNS-1.55/lib/Net/DNS/RR/SIG.pm 2026-06-11 16:08:47.000000000 +0200 +++ new/Net-DNS-1.56/lib/Net/DNS/RR/SIG.pm 2026-07-17 12:09:44.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = (qw$Id: SIG.pm 2042 2025-12-24 10:23:11Z willem $)[2]; +our $VERSION = (qw$Id: SIG.pm 2057 2026-07-16 10:05:04Z willem $)[2]; use base qw(Net::DNS::RR); @@ -703,7 +703,7 @@ If a reference to a Net::DNS::Packet is supplied, the method performs a SIG0 verification on the packet data. -The second argument can either be a Net::DNS::RR::KEYRR object or a +The second argument can either be a Net::DNS::RR::KEY object or a reference to an array of such objects. Verification will return successful as soon as one of the keys in the array leads to positive validation. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.55/lib/Net/DNS/Resolver/Base.pm new/Net-DNS-1.56/lib/Net/DNS/Resolver/Base.pm --- old/Net-DNS-1.55/lib/Net/DNS/Resolver/Base.pm 2026-06-11 16:08:47.000000000 +0200 +++ new/Net-DNS-1.56/lib/Net/DNS/Resolver/Base.pm 2026-07-17 12:09:44.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = (qw$Id: Base.pm 2049 2026-06-08 10:44:36Z willem $)[2]; +our $VERSION = (qw$Id: Base.pm 2057 2026-07-16 10:05:04Z willem $)[2]; # @@ -862,15 +862,15 @@ $self->_diag('socket disconnected (trying to connect)'); } + my $port = $self->{port}; Carp::confess 'Insecure dependency while running with -T switch' - if TAINT && Scalar::Util::tainted( $ip || $self->{port} ); + if TAINT && Scalar::Util::tainted("$ip $port"); - my $ip6_addr = IPv6 && _ipv6($ip); $socket = IO::Socket::IP->new( - LocalAddr => $ip6_addr ? $self->{srcaddr6} : $self->{srcaddr4}, + LocalAddr => _ipv6($ip) ? $self->{srcaddr6} : $self->{srcaddr4}, LocalPort => $self->{srcport}, PeerAddr => $ip, - PeerPort => $self->{port}, + PeerPort => $port, Proto => 'tcp', Timeout => $self->{tcp_timeout}, GetAddrInfoFlags => AI_NUMERICHOST, @@ -878,17 +878,16 @@ ) if USE_SOCKET_IP; - unless ( USE_SOCKET_IP or $ip6_addr ) { - $socket = IO::Socket::INET->new( - LocalAddr => $self->{srcaddr4}, - LocalPort => $self->{srcport} || undef, - PeerAddr => $ip, - PeerPort => $self->{port}, - Proto => 'tcp', - Timeout => $self->{tcp_timeout}, - @sockopt - ); - } + $socket = IO::Socket::INET->new( + LocalAddr => $self->{srcaddr4}, + LocalPort => $self->{srcport} || undef, + PeerAddr => $ip, + PeerPort => $port, + Proto => 'tcp', + Timeout => $self->{tcp_timeout}, + @sockopt + ) + unless USE_SOCKET_IP; $self->{persistent}{$sock_key} = $socket if $self->{persistent_tcp}; return $socket; @@ -902,9 +901,8 @@ my $sock_key = "UDP[$ip]"; return $socket if $socket = $self->{persistent}{$sock_key}; - my $ip6_addr = IPv6 && _ipv6($ip); $socket = IO::Socket::IP->new( - LocalAddr => $ip6_addr ? $self->{srcaddr6} : $self->{srcaddr4}, + LocalAddr => _ipv6($ip) ? $self->{srcaddr6} : $self->{srcaddr4}, LocalPort => $self->{srcport}, Proto => 'udp', Type => SOCK_DGRAM, @@ -913,7 +911,7 @@ ) if USE_SOCKET_IP; - unless ( USE_SOCKET_IP or $ip6_addr ) { + unless ( USE_SOCKET_IP or _ipv6($ip) ) { $socket = IO::Socket::INET->new( LocalAddr => $self->{srcaddr4}, LocalPort => $self->{srcport} || undef, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.55/lib/Net/DNS/Resolver/UNIX.pm new/Net-DNS-1.56/lib/Net/DNS/Resolver/UNIX.pm --- old/Net-DNS-1.55/lib/Net/DNS/Resolver/UNIX.pm 2026-06-11 16:08:47.000000000 +0200 +++ new/Net-DNS-1.56/lib/Net/DNS/Resolver/UNIX.pm 2026-07-17 12:09:44.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = (qw$Id: UNIX.pm 2046 2026-06-01 13:23:01Z willem $)[2]; +our $VERSION = (qw$Id: UNIX.pm 2053 2026-07-07 10:18:23Z willem $)[2]; =head1 NAME @@ -39,13 +39,14 @@ sub _nosh { ## shell-free backtick emulation my ( $prog, @arg ) = @_; - if ( open( PIPE, '-|' ) ) { - my @retval = <PIPE>; - close PIPE; + if ( open( my $pipe, '-|' ) ) { + my @retval = ( <$pipe>, '' ); + close $pipe; return @retval; } else { - $ENV{PATH} = '/bin:/usr/bin'; - exec $prog, @arg; + local $SIG{__WARN__} = sub { }; + warn 'child process fails without warning'; + eval { exec $prog, @arg }; exit; ## uncoverable statement } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.55/lib/Net/DNS.pm new/Net-DNS-1.56/lib/Net/DNS.pm --- old/Net-DNS-1.55/lib/Net/DNS.pm 2026-06-11 16:08:47.000000000 +0200 +++ new/Net-DNS-1.56/lib/Net/DNS.pm 2026-07-17 12:09:44.000000000 +0200 @@ -4,9 +4,9 @@ use warnings; our $VERSION; -$VERSION = '1.55'; +$VERSION = '1.56'; $VERSION = eval {$VERSION}; -our $SVNVERSION = (qw$Id: DNS.pm 2051 2026-06-11 14:06:42Z willem $)[2]; +our $SVNVERSION = (qw$Id: DNS.pm 2058 2026-07-17 10:09:31Z willem $)[2]; =head1 NAME diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-DNS-1.55/t/02-domainname.t new/Net-DNS-1.56/t/02-domainname.t --- old/Net-DNS-1.55/t/02-domainname.t 2026-06-11 16:08:47.000000000 +0200 +++ new/Net-DNS-1.56/t/02-domainname.t 2026-07-17 12:09:44.000000000 +0200 @@ -1,10 +1,10 @@ #!/usr/bin/perl -# $Id: 02-domainname.t 1910 2023-03-30 19:16:30Z willem $ -*-perl-*- +# $Id: 02-domainname.t 2054 2026-07-10 09:37:11Z willem $ -*-perl-*- # use strict; use warnings; -use Test::More tests => 35; +use Test::More tests => 36; use TestToolkit; @@ -122,6 +122,9 @@ my $loop = pack 'H*', '0344454603414243c000'; exception( 'compression loop', sub { Net::DNS::DomainName->decode( \$loop, 4 ) } ); +my $deep = pack 'H*', '017800c000c003c005c007'; +exception( 'long compression chain', sub { Net::DNS::DomainName->decode( \$deep, 9, {}, 118 ) } ); + exit; ++++++ _scmsync.obsinfo ++++++ --- /var/tmp/diff_new_pack.RbLytk/_old 2026-07-28 17:50:55.029802151 +0200 +++ /var/tmp/diff_new_pack.RbLytk/_new 2026-07-28 17:50:55.037802431 +0200 @@ -1,6 +1,6 @@ -mtime: 1781221198 -commit: 74568f75cb079bbdfae757241b94d017ab94a59d8d3575841c460465c90f2126 +mtime: 1785164050 +commit: 39480aefc58ece451fe0e3aa6e12a098cd87a2e1dd9270e39d5afe8e3997bdc8 url: https://src.opensuse.org/perl/perl-Net-DNS -revision: 74568f75cb079bbdfae757241b94d017ab94a59d8d3575841c460465c90f2126 +revision: 39480aefc58ece451fe0e3aa6e12a098cd87a2e1dd9270e39d5afe8e3997bdc8 projectscmsync: https://src.opensuse.org/perl/_ObsPrj ++++++ build.specials.obscpio ++++++ ++++++ build.specials.obscpio ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/.gitignore new/.gitignore --- old/.gitignore 1970-01-01 01:00:00.000000000 +0100 +++ new/.gitignore 2026-07-27 16:54:10.000000000 +0200 @@ -0,0 +1 @@ +.osc
