diff --git a/0001-modify-perl-libxml-mm.c.patch b/0001-modify-perl-libxml-mm.c.patch
new file mode 100644
index 0000000000000000000000000000000000000000..a1bffe65f2acf4ba79be0a373b7085ca74938940
--- /dev/null
+++ b/0001-modify-perl-libxml-mm.c.patch
@@ -0,0 +1,43 @@
+From 1ea163faf5c1c8f46fbdd0a1052128cbd06a3a3d Mon Sep 17 00:00:00 2001
+From: "Shencb@123" <1944340417@qq.com>
+Date: Mon, 26 Aug 2024 19:56:30 +0800
+Subject: [PATCH] modify perl-libxml-mm.c
+
+---
+ perl-libxml-mm.c | 6 +++---
+ 1 file changed, 3 insertions(+), 3 deletions(-)
+
+diff --git a/perl-libxml-mm.c b/perl-libxml-mm.c
+index a3e78a2..f4215c4 100644
+--- a/perl-libxml-mm.c
++++ b/perl-libxml-mm.c
+@@ -121,7 +121,7 @@ PmmFreeHashTable(xmlHashTablePtr table)
+ extern SV* PROXY_NODE_REGISTRY_MUTEX;
+ 
+ /* Utility method used by PmmDumpRegistry */
+-void PmmRegistryDumpHashScanner(void * payload, void * data, xmlChar * name)
++void PmmRegistryDumpHashScanner(void * payload, void * data,const xmlChar * name)
+ {
+ 	LocalProxyNodePtr lp = (LocalProxyNodePtr) payload;
+ 	ProxyNodePtr node = (ProxyNodePtr) lp->proxy;
+@@ -215,7 +215,7 @@ PmmRegisterProxyNode(ProxyNodePtr proxy)
+ /* PP: originally this was static inline void, but on AIX the compiler
+    did not chew it, so I'm removing the inline */
+ static void
+-PmmRegistryHashDeallocator(void *payload, xmlChar *name)
++PmmRegistryHashDeallocator(void *payload,const xmlChar *name)
+ {
+ 	Safefree((LocalProxyNodePtr) payload);
+ }
+@@ -279,7 +279,7 @@ PmmRegistryREFCNT_dec(ProxyNodePtr proxy)
+  * internal, used by PmmCloneProxyNodes
+  */
+ void *
+-PmmRegistryHashCopier(void *payload, xmlChar *name)
++PmmRegistryHashCopier(void *payload,const xmlChar *name)
+ {
+ 	ProxyNodePtr proxy = ((LocalProxyNodePtr) payload)->proxy;
+ 	LocalProxyNodePtr lp;
+-- 
+2.45.2.windows.1
+
diff --git a/perl-XML-LibXML.spec b/perl-XML-LibXML.spec
index 720797409579ec9436b166b39bdecfa174612195..c3501026aca1488927451f8cda2331fee637abc3 100644
--- a/perl-XML-LibXML.spec
+++ b/perl-XML-LibXML.spec
@@ -1,12 +1,14 @@
 Name:           perl-XML-LibXML
 Version:        2.0209
-Release:        1
+Release:        2
 Epoch:          1
 Summary:        Perl Binding for libxml2
 License:        (GPL+ or Artistic) and MIT
 URL:            https://metacpan.org/release/XML-LibXML
 Source0:        https://cpan.metacpan.org/authors/id/S/SH/SHLOMIF/XML-LibXML-%{version}.tar.gz
 
+Patch0001: 0001-modify-perl-libxml-mm.c.patch
+
 BuildRequires:  coreutils, findutils, glibc-common, libxml2-devel
 BuildRequires:  perl-interpreter, perl-devel, perl-generators, sed
 BuildRequires:  perl(Config), perl(Cwd), perl(Devel::CheckLib), perl(ExtUtils::MakeMaker)
@@ -82,6 +84,9 @@ fi
 %{_mandir}/man*/*
 
 %changelog
+* Tue Aug 27 2024 shenchenbang <1944340417@qq.com> - 1:2.0209-2
+- Update to 2.0209
+
 * Thu Aug 10 2023 liyanan <thistleslyn@163.com> - 1:2.0209-1
 - Update to 2.0209