diff --git a/HTTP-Body-1.22.tar.gz b/HTTP-Body-1.22.tar.gz
deleted file mode 100644
index fb937f1e903e94fbb4f2218e0a95a8e179f6d0a6..0000000000000000000000000000000000000000
Binary files a/HTTP-Body-1.22.tar.gz and /dev/null differ
diff --git a/HTTP-Body-1.23.tar.gz b/HTTP-Body-1.23.tar.gz
new file mode 100644
index 0000000000000000000000000000000000000000..840135ffc72bbcbb005642f9787b57ea9c5b5833
Binary files /dev/null and b/HTTP-Body-1.23.tar.gz differ
diff --git a/perl-HTTP-Body.spec b/perl-HTTP-Body.spec
index 82240f3d0345969b25f75c0ef19eca04624940df..c1c9876a4525035c44e596e2c6a015ac00939b18 100644
--- a/perl-HTTP-Body.spec
+++ b/perl-HTTP-Body.spec
@@ -1,6 +1,6 @@
 %global _empty_manifest_terminate_build 0
 Name:           perl-HTTP-Body
-Version:        1.22
+Version:        1.23
 Release:        1
 Summary:        HTTP Body Parser
 License:        GPL-1.0-only or Artistic-1.0-Perl
@@ -60,17 +60,14 @@ if [ -d usr/bin ];then
     find usr/bin -type f -printf "/%h/%f\n" >> filelist.lst
 fi
 if [ -d usr/sbin ];then
-    find usr/bin -type f -printf "/%h/%f\n" >> filelist.lst
-fi
-if [ -d usr/lib64 ];then
-    find usr/lib64 -type f -printf "/%h/%f\n" >> filelist.lst
+    find usr/sbin -type f -printf "/%h/%f\n" >> filelist.lst
 fi
-if [ -d usr/lib ];then
-    find usr/lib -type f -printf "/%h/%f\n" >> filelist.lst
+if [ -d %{_libdir} ];then
+    find %{_libdir} -type f -printf "/%h/%f\n" >> filelist.lst
 fi
 popd
 mv %{buildroot}/filelist.lst .
-%check || :
+%check
 make test
 
 %clean
@@ -84,5 +81,8 @@ rm -rf $RPM_BUILD_ROOT
 %{_mandir}/*
 
 %changelog
+* Mon May 12 2025  openeuler_bot <infra@openeuler.sh> - 1.23-1
+- update perl-HTTP-Body to 1.23 
+
 * Sun May 23 2021 Perl_Bot <Perl_Bot@openeuler.org> 1.22-1
-- Specfile autogenerated by Perl_Bot
+- Specfile autogenerated by Perl_Bot
\ No newline at end of file