diff --git a/perl-Text-Unidecode.spec b/perl-Text-Unidecode.spec
index 0beac2d..23057bf 100644
--- a/perl-Text-Unidecode.spec
+++ b/perl-Text-Unidecode.spec
@@ -1,10 +1,11 @@
-Name:           perl-Text-Unidecode
+%define mod_name Text-Unidecode
+Name:           perl-%{mod_name}
 Version:        1.30
-Release:        8
-Summary:        Text-Unidecode -- plain ASCII transliterations of Unicode text
+Release:        9
+Summary:        %{mod_name} -- plain ASCII transliterations of Unicode text
 License:        GPL+ and Artistic
-URL:            https://metacpan.org/release/Text-Unidecode
-Source0:        https://cpan.metacpan.org/modules/by-module/Text/Text-Unidecode-%{version}.tar.gz
+URL:            https://metacpan.org/release/%{mod_name}
+Source0:        https://cpan.metacpan.org/modules/by-module/Text/%{mod_name}-%{version}.tar.gz
 BuildArch:      noarch
 BuildRequires:  make perl-interpreter perl-generators perl(ExtUtils::MakeMaker) >= 6.76
 BuildRequires:  perl(Exporter) perl(integer) perl(strict) perl(utf8) perl(vars) perl(warnings) perl(Test) perl(Text::Wrap)
@@ -26,10 +27,10 @@ by the text in some other writing system. (See the example in the synopsis.)
 Summary:        This package contains help documents
 
 %description    help
-Files for help with perl-Text-Unidecode.
+Files for help with perl-%{mod_name}.
 
 %prep
-%autosetup -n Text-Unidecode-%{version} -p1
+%autosetup -n %{mod_name}-%{version} -p1
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1
@@ -51,5 +52,8 @@ make test
 %{_mandir}/man3/*.3*
 
 %changelog
+* Tue Oct 25 2022 zhoushuiqing <zhoushuiqing2@huawei.com> - 1.30-9
+- define mod_name to opitomize the specfile
+
 * Wed Nov 27 2019 wangyiru <wangyiru1@huawei.com> - 1.30-8
 - Package init