diff --git a/fix-test-case-failure.patch b/fix-test-case-failure.patch
new file mode 100644
index 0000000000000000000000000000000000000000..abdfa61fa0bf624d1cbb34f22c2252e0906b7ac1
--- /dev/null
+++ b/fix-test-case-failure.patch
@@ -0,0 +1,29 @@
+From c6101c8b092aec7d209979b89a504c6eae1cbf28 Mon Sep 17 00:00:00 2001
+From: dongyuzhen <dongyuzhen@h-partners.com>
+Date: Fri, 24 May 2024 17:11:13 +0800
+Subject: [PATCH] fix test case failure
+
+The patching of zlib in openEuler with upstream bug fixes aligns its functionality with newer versions of zlib:
+https://gitee.com/src-openeuler/zlib/pulls/46
+Cause a change in the expected behavior of the perl-IO-Compress test case, which should be changed to: Z_STREAM_END
+
+---
+ t/cz-03zlib-v1.t | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/t/cz-03zlib-v1.t b/t/cz-03zlib-v1.t
+index 9b75f9b..f2757c0 100755
+--- a/t/cz-03zlib-v1.t
++++ b/t/cz-03zlib-v1.t
+@@ -700,7 +700,7 @@ EOM
+ 
+     ($GOT, $status) = $k->inflate($rest) ;
+ 
+-    ok $status == Z_DATA_ERROR ;
++    ok $status == Z_STREAM_END ;
+     ok $Z . $GOT eq $goodbye ;
+ }
+ 
+-- 
+2.33.0
+
diff --git a/perl-IO-Compress.spec b/perl-IO-Compress.spec
index c825d5843b038e6bb3223b61a569b455e72b8920..2be59d59543c4ff27e63d771468646707681adb7 100644
--- a/perl-IO-Compress.spec
+++ b/perl-IO-Compress.spec
@@ -7,11 +7,14 @@
 
 Name:           perl-IO-Compress
 Version:        2.101
-Release:        2
+Release:        3
 Summary:        Read and write compressed data
 License:        GPL+ or Artistic
 URL:            https://metacpan.org/release/IO-Compress
 Source0:        https://cpan.metacpan.org/authors/id/P/PM/PMQS/IO-Compress-%{version}.tar.gz
+
+Patch0:         fix-test-case-failure.patch
+
 BuildArch:      noarch
 # Module Build
 BuildRequires:  coreutils findutils make perl-generators perl-interpreter
@@ -69,6 +72,7 @@ Man pages and other related documents.
 
 %prep
 %setup -q -n IO-Compress-%{version}
+%patch0 -p1
 
 # Remove spurious exec permissions
 chmod -c -x lib/IO/Uncompress/{Adapter/Identity,RawInflate}.pm
@@ -109,6 +113,9 @@ make test COMPRESS_ZLIB_RUN_%{?with_long_tests:ALL}%{!?with_long_tests:MOST}=1
 %{_mandir}/man3/IO::Uncompress::*.3*
 
 %changelog
+* Fri May 24 2024 dongyuzhen <dongyuzhen@h-partners.com> - 2.101-3
+- fix test case failure
+
 * Tue Jan 11 2022 tianwei <tianwei12@huawei.com> - 2.101-2
 - skip long tests for check