perl-Net-SSLeay/openEuler-fix-Failed-test-CIPHER_get_version.patch
2022-06-28 14:12:48 +08:00

26 lines
792 B
Diff

From e25fe9f0bc14386e9ddc0259f1789ff2b9986354 Mon Sep 17 00:00:00 2001
From: shixuantong <shixuantong@h-partners.com>
Date: Tue, 28 Jun 2022 11:52:56 +0800
Subject: [PATCH] fix Failed test CIPHER_get_version
---
t/local/43_misc_functions.t | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/t/local/43_misc_functions.t b/t/local/43_misc_functions.t
index c67df75..dbe0923 100644
--- a/t/local/43_misc_functions.t
+++ b/t/local/43_misc_functions.t
@@ -318,7 +318,7 @@ sub test_cipher_funcs
# For example: TLSv1/SSLv3, SSLv2
my $vers = Net::SSLeay::CIPHER_get_version($c);
- $vers_failed++ if length($vers) < 5;
+ $vers_failed++ if (length($vers) < 5 and $vers ne "TLCP");
# See that get_bits returns the same no matter how it's called
my $alg_bits;
--
1.8.3.1