Skip to content

Commit f9cd0dd

Browse files
authored
[Work Item #19810] Resolved ptests failure in perl-IO-Socket-SSL package (microsoft#17178)
1 parent 61fb84f commit f9cd0dd

2 files changed

Lines changed: 29 additions & 1 deletion

File tree

Lines changed: 23 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,23 @@
1+
From 7c0798d6de3467603dff42253448e36aded7f5ac Mon Sep 17 00:00:00 2001
2+
From: Steffen Ullrich <github@maulwuff.de>
3+
Date: Fri, 22 Dec 2023 08:07:20 +0100
4+
Subject: [PATCH] fixed test fail #147 with OpenSSL 3.2
5+
6+
OpenSSL >= 3.2 prepends a TLS Alert record to the server's plaintext
7+
"This server is SSL only" reply, breaking the exact-match assertion in
8+
t/core.t. Switch the assertion to a regex match.
9+
10+
Upstream-reference: https://github.com/noxxi/p5-io-socket-ssl/commit/7c0798d6de3467603dff42253448e36aded7f5ac
11+
---
12+
--- a/t/core.t
13+
+++ b/t/core.t
14+
@@ -74,7 +74,8 @@
15+
LocalAddr => $localip,
16+
);
17+
print $client "Test\n";
18+
- is( <$client>, "This server is SSL only", "Client non-SSL connection");
19+
+
20+
+ like( <$client>, qr/This server is SSL only/, "Client non-SSL connection");
21+
close $client;
22+
23+
$client = IO::Socket::SSL->new(

SPECS/perl-IO-Socket-SSL/perl-IO-Socket-SSL.spec

Lines changed: 6 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,13 @@
11
Summary: SSL sockets with IO::Socket interface
22
Name: perl-IO-Socket-SSL
33
Version: 2.084
4-
Release: 1%{?dist}
4+
Release: 2%{?dist}
55
License: GPL+ or Artistic
66
Group: Development/Libraries
77
URL: https://metacpan.org/release/IO-Socket-SSL
88
Source0: https://cpan.metacpan.org/modules/by-module/IO/IO-Socket-SSL-%{version}.tar.gz
99
Source1: LICENSE.PTR
10+
Patch0: 0001-fixed-test-fail-with-OpenSSL-3.2.patch
1011
Vendor: Microsoft Corporation
1112
Distribution: Azure Linux
1213
BuildArch: noarch
@@ -44,6 +45,7 @@ IO::Socket::SSL makes using SSL/TLS much easier by wrapping the necessary functi
4445

4546
%prep
4647
%setup -q -n IO-Socket-SSL-%{version}
48+
%autopatch -p1
4749

4850
%build
4951
perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
@@ -70,6 +72,9 @@ make test
7072
%{_mandir}/man?/*
7173

7274
%changelog
75+
* Wed May 13 2026 Sumit Jena <v-sumitjena@microsoft.com> - 2.084-2
76+
- Fix ptests failure.
77+
7378
* Mon Dec 18 2023 CBL-Mariner Servicing Account <cblmargh@microsoft.com> - 2.084-1
7479
- Auto-upgrade to 2.084 - Azure Linux 3.0 - package upgrades
7580

0 commit comments

Comments
 (0)