import perl-Net-Server-2.014-9.el10

SOURCES/Net-Server-2.014-Stop-using-OpenSSL-ENGINE-API-routines.patch

@@ -1,12 +1,63 @@
-diff -up Net-Server-2.014/lib/Net/Server/Proto/SSLEAY.pm.engine Net-Server-2.014/lib/Net/Server/Proto/SSLEAY.pm
+From 8d04efe2f0402cc2c86fb28f17d9d58351d43ef4 Mon Sep 17 00:00:00 2001
---- Net-Server-2.014/lib/Net/Server/Proto/SSLEAY.pm.engine	2024-07-11 13:31:16.688206663 +0200
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
-+++ Net-Server-2.014/lib/Net/Server/Proto/SSLEAY.pm	2024-07-11 13:31:39.631408942 +0200
+Date: Tue, 13 Aug 2024 11:55:47 +0200
-@@ -27,7 +27,7 @@ use Socket ();
+Subject: [PATCH] Only initialize existing Net::SSLeay methods
- BEGIN {
+
+Recent OpenSSL can be built without engine support and then Net-SSLeay
+is missing ENGINE_load_builtin_engines() and
+ENGINE_register_all_complete() subroutines. In that case
+t/Port_Configuration.t failed like this:
+
+    $ prove -l -v  t/Port_Configuration.t
+    t/Port_Configuration.t ..
+    1..51
+    [...]
+    ok 34 - run ( ipv => '*', port => 'foo/bar/unix' )  ==>  [ '*|foo/bar|UNIX|*' ]
+    # Unable to load module for proto "Net::Server::Proto::SSLEAY": Can't use an undefined value as a subroutine reference at /home/test/fedora/perl-Net-Server/perl-Net-Server-2.014-build/Net-Server-2.014/lib/Net/Server/Proto/SSLEAY.pm line 31.
+    BEGIN failed--compilation aborted at /home/test/fedora/perl-Net-Server/perl-Net-Server-2.014-build/Net-Server-2.014/lib/Net/Server/Proto/SSLEAY.pm line 34.
+    Compilation failed in require at /home/test/fedora/perl-Net-Server/perl-Net-Server-2.014-build/Net-Server-2.014/lib/Net/Server/Proto.pm line 195.
+     at line 318
+    # Failed at line 318
+    not ok 35 - run ( proto => 'ssleay' )  ==>  [ '' ]
+    #   failed at t/Port_Configuration.t line 73
+    #        got: {
+      bind => undef
+    }
+    #   expected: {
+      bind => [{
+      host => '*',
+      ipv => 4,
+      port => 20203,
+      proto => 'ssleay'
+    }],
+      sock => [{
+      NS_host => '*',
+      NS_ipv => 4,
+      NS_listen => 4096,
+      NS_port => 20203,
+      NS_proto => 'SSLEAY',
+      SSL_cert_file => 'somecert'
+    }]
+    }
+    # number of tests ran 35 did not match number of specified tests 51
+    Failed 17/51 subtests
+
+This patch calls the Net::SSLeay initialization routines only if they are defined.
+---
+ lib/Net/Server/Proto/SSLEAY.pm | 3 ++-
+ 1 file changed, 2 insertions(+), 1 deletion(-)
+
+diff --git a/lib/Net/Server/Proto/SSLEAY.pm b/lib/Net/Server/Proto/SSLEAY.pm
+index 61631c10..d978a7f7 100644
+--- a/lib/Net/Server/Proto/SSLEAY.pm
++++ b/lib/Net/Server/Proto/SSLEAY.pm
+@@ -28,7 +28,8 @@ BEGIN {
      eval { require Net::SSLeay; 1 }
          or warn "Module Net::SSLeay is required for SSLeay.";
--    for my $sub (qw(load_error_strings SSLeay_add_ssl_algorithms ENGINE_load_builtin_engines ENGINE_register_all_complete randomize)) {
+     for my $sub (qw(load_error_strings SSLeay_add_ssl_algorithms ENGINE_load_builtin_engines ENGINE_register_all_complete randomize)) {
-+    for my $sub (qw(load_error_strings SSLeay_add_ssl_algorithms randomize)) {
+-        Net::SSLeay->can($sub)->();
-         Net::SSLeay->can($sub)->();
++        my $subref = Net::SSLeay->can($sub);
++        $subref->() if defined $subref;
      }
      eval { [Fcntl::F_GETFL(), Fcntl::F_SETFL(), Fcntl::O_NONBLOCK()] } || die "Could not access Fcntl constant while loading ".__PACKAGE__.": $@";
+ }

SPECS/perl-Net-Server.spec

@@ -1,6 +1,6 @@
 Name:           perl-Net-Server
 Version:        2.014
-Release:        8%{?dist}
+Release:        9%{?dist}
 Summary:        Extensible, general Perl server engine
 License:        GPL-1.0-or-later OR Artistic-1.0-Perl
 URL:            https://metacpan.org/release/Net-Server
@@ -107,7 +107,8 @@ mkdir -p %{buildroot}%{_libexecdir}/%{name}
 cp -a t %{buildroot}%{_libexecdir}/%{name}
 cat > %{buildroot}%{_libexecdir}/%{name}/test << 'EOF'
 #!/bin/sh
-cd %{_libexecdir}/%{name} && exec prove -I . -j "$(getconf _NPROCESSORS_ONLN)" -r
+# XXX Not possible to run in parallel
+cd %{_libexecdir}/%{name} && exec prove -I . -r
 EOF
 chmod +x %{buildroot}%{_libexecdir}/%{name}/test
 %{_fixperms} %{buildroot}/*
@@ -127,6 +128,11 @@ make test
 %{_libexecdir}/%{name}
 
 %changelog
+* Thu Nov 21 2024 Michal Josef Špaček <mspacek@redhat.com> - 2.014-9
+- Fix running of tests in perl-Net-Server-tests subpackage
+  Resolves: RHEL-65278
+- Sync OpenSSL Engine patch with upstream
+
 * Tue Oct 29 2024 Troy Dawson <tdawson@redhat.com> - 2.014-8
 - Bump release for October 2024 mass rebuild:
   Resolves: RHEL-64018