[packages/perl-Net-DNS] - updated to 1.56 (CVE-2026-64193, CVE-2026-64194), enabled test suite - added uname patch: POSIX::u

[arekm]

commit 8acae1714404f7d8c95ad39303be48605209c5e8
Author: Arkadiusz Miśkiewicz <arekm at maven.pl>
Date:   Sun Aug 16 21:07:22 2026 +0200

    - updated to 1.56 (CVE-2026-64193, CVE-2026-64194), enabled test suite
    - added uname patch: POSIX::uname() instead of fork+exec of uname(1) to work in jails

 perl-Net-DNS-uname.patch | 42 ++++++++++++++++++++++++++++++++++++++++++
 perl-Net-DNS.spec        |  8 +++++---
 2 files changed, 47 insertions(+), 3 deletions(-)
---
diff --git a/perl-Net-DNS.spec b/perl-Net-DNS.spec
index f431e49..d3315ba 100644
--- a/perl-Net-DNS.spec
+++ b/perl-Net-DNS.spec
@@ -1,19 +1,20 @@
 #
 # Conditional build:
-%bcond_with	tests	# test suite
+%bcond_without	tests	# test suite
 #
 %define		pdir	Net
 %define		pnam	DNS
 Summary:	Net::DNS - Perl interface to the DNS resolver
 Summary(pl.UTF-8):	Net::DNS - interfejs perlowy do resolvera DNS
 Name:		perl-Net-DNS
-Version:	1.55
+Version:	1.56
 Release:	1
 # same as perl
 License:	GPL v1+ or Artistic
 Group:		Development/Languages/Perl
 Source0:	https://www.cpan.org/modules/by-module/Net/NLNETLABS/%{pdir}-%{pnam}-%{version}.tar.gz
-# Source0-md5:	0d7c7a34da4514722bb936a803552c57
+# Source0-md5:	683b3e1d4882d242478e192b2579ae88
+Patch0:		%{name}-uname.patch
 URL:		https://metacpan.org/dist/Net-DNS
 BuildRequires:	perl(IO::File) >= 1.14
 BuildRequires:	perl(IO::Socket::IP) >= 0.38
@@ -73,6 +74,7 @@ Perla.
 
 %prep
 %setup -q -n %{pdir}-%{pnam}-%{version}
+%patch -P0 -p1
 
 %{__sed} -i -e 's#/''usr/local/bin/perl#/''usr/bin/perl#' demo/* contrib/*
 
diff --git a/perl-Net-DNS-uname.patch b/perl-Net-DNS-uname.patch
new file mode 100644
index 0000000..aea692f
--- /dev/null
+++ b/perl-Net-DNS-uname.patch
@@ -0,0 +1,42 @@
+--- Net-DNS-1.56/lib/Net/DNS/Resolver/UNIX.pm.orig
++++ Net-DNS-1.56/lib/Net/DNS/Resolver/UNIX.pm
+@@ -2,6 +2,7 @@
+ 
+ use strict;
+ use warnings;
++use POSIX ();
+ our $VERSION = (qw$Id: UNIX.pm 2053 2026-07-07 10:18:23Z willem $)[2];
+ 
+ 
+@@ -18,8 +19,8 @@
+ my $dotfile = '.resolv.conf';
+ my @dotfile = grep { -f $_ && -o $_ } map {"$_/$dotfile"} grep {$_} $homedir, '.';
+ 
+-my ($name) = _nosh(qw(uname -n));
+-chomp $name;
++# uname(2) syscall; fork+exec of uname(1) fails where exec is denied (jails, seccomp)
++my $name = ( POSIX::uname() )[1];
+ my ( undef, @domain ) = split /\./, $name, 2;
+ 
+ 
+@@ -37,20 +38,6 @@
+ 	return;
+ }
+ 
+-sub _nosh {				## shell-free backtick emulation
+-	my ( $prog, @arg ) = @_;
+-	if ( open( my $pipe, '-|' ) ) {
+-		my @retval = ( <$pipe>, '' );
+-		close $pipe;
+-		return @retval;
+-	} else {
+-		local $SIG{__WARN__} = sub { };
+-		warn 'child process fails without warning';
+-		eval { exec $prog, @arg };
+-		exit;			## uncoverable statement
+-	}
+-}
+-
+ 1;
+ __END__
+ 
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/perl-Net-DNS.git/commitdiff/8acae1714404f7d8c95ad39303be48605209c5e8