diff --git a/perl-Text-ParseWords.spec b/perl-Text-ParseWords.spec
index 71d7ead..11d1a15 100644
--- a/perl-Text-ParseWords.spec
+++ b/perl-Text-ParseWords.spec
@@ -1,10 +1,12 @@
-Name:		perl-Text-ParseWords
+%define mod_name Text-ParseWords
+
+Name:		perl-%{mod_name}
 Version:	3.30
-Release:        419
+Release:        420
 Summary:	Parse text into an array of tokens or array of arrays
 License:	GPL+ or Artistic
-URL:		https://metacpan.org/release/Text-ParseWords
-Source0:	https://cpan.metacpan.org/authors/id/C/CH/CHORNY/Text-ParseWords-%{version}.tar.gz
+URL:		https://metacpan.org/release/%{mod_name}
+Source0:	https://cpan.metacpan.org/authors/id/C/CH/CHORNY/%{mod_name}-%{version}.tar.gz
 BuildArch:      noarch
 BuildRequires:	perl-interpreter perl-generators
 BuildRequires:	perl(ExtUtils::MakeMaker) perl(Test::More)
@@ -41,7 +43,7 @@ requires:	man
 The %{name}-help package contains doc files for %{name}.
 
 %prep
-%setup -q -n Text-ParseWords-%{version}
+%setup -q -n %{mod_name}-%{version}
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor
@@ -63,6 +65,9 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Mon Oct 24 2022 hongjinghao <hongjinghao@huawei.com> - 3.30-420
+- add mod_name macro
+
 * Tue Sep 17 2019 luhuaxin <luhuaxin@huawei.com> - 3.30-419
 - Fix bug: Add buildrequire perl-generators