diff --git a/perl-Text-Diff.spec b/perl-Text-Diff.spec
index a314779..faa28ce 100644
--- a/perl-Text-Diff.spec
+++ b/perl-Text-Diff.spec
@@ -1,10 +1,11 @@
-Name:           perl-Text-Diff
+%define mod_name Text-Diff
+Name:           perl-%{mod_name}
 Version:        1.45
-Release:        7
+Release:        8
 Summary:        Perform diffs on files and record sets
 License:        (GPL+ or Artistic) and (GPLv2+ or Artistic) and MIT
-URL:            https://metacpan.org/release/Text-Diff
-Source0:        https://cpan.metacpan.org/authors/id/N/NE/NEILB/Text-Diff-%{version}.tar.gz
+URL:            https://metacpan.org/release/%{mod_name}
+Source0:        https://cpan.metacpan.org/authors/id/N/NE/NEILB/%{mod_name}-%{version}.tar.gz
 BuildArch:      noarch
 
 BuildRequires:  make
@@ -22,7 +23,7 @@ Requires:       perl(Algorithm::Diff) >= 1.19
 Text::Diff provides a basic set of services akin to the GNU diff utility.
 
 %prep
-%setup -q -n Text-Diff-%{version}
+%setup -q -n %{mod_name}-%{version}
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1
@@ -46,6 +47,9 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Mon Oct 24 2022 yangmingtai <yangmingtai@huawei.com> - 1.45-8
+- define mod_name to opitomize the specfile
+
 * Sat Dec 21 2019 openEuler Buildteam <buildteam@openeuler.org> - 1.45-7
 - Type:enhancement
 - ID:NA