diff --git a/perl-XML-Writer.spec b/perl-XML-Writer.spec
index 1150c98..d349df7 100644
--- a/perl-XML-Writer.spec
+++ b/perl-XML-Writer.spec
@@ -1,10 +1,11 @@
+%define mod_name XML-Writer
 Name:           perl-XML-Writer
 Version:        0.900
-Release:        1
+Release:        2
 Summary:        Module for writing XML documents
 License:        CC0
-URL:            https://metacpan.org/release/XML-Writer
-Source0:        https://cpan.metacpan.org/authors/id/J/JO/JOSEPHW/XML-Writer-%{version}.tar.gz
+URL:            https://metacpan.org/release/%{mod_name}
+Source0:        https://cpan.metacpan.org/authors/id/J/JO/JOSEPHW/%{mod_name}-%{version}.tar.gz
 BuildArch:      noarch
 
 BuildRequires:  gcc perl-interpreter perl-generators perl(ExtUtils::MakeMaker)
@@ -25,7 +26,7 @@ there are not duplicate attribute names.
 %package_help
 
 %prep
-%autosetup -n XML-Writer-%{version} -p1
+%autosetup -n %{mod_name}-%{version} -p1
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor NO_PERLLOCAL=1 NO_PACKLIST=1
@@ -53,6 +54,9 @@ make test
 %{_mandir}/man3/*.3*
 
 %changelog
+* Tue Oct 25 2022 jiangchuangang <jiangchuangang@huawei.com> - 0.900-2
+- define mod_name to opitomize the specfile
+
 * Fri Jan 29 2021 liudabo <liudabo1@huawei.com> - 0.900-1
 - upgrade version to 0.900