diff --git a/perl-HTTP-Negotiate.spec b/perl-HTTP-Negotiate.spec
index 837e32d..a1bfa2b 100644
--- a/perl-HTTP-Negotiate.spec
+++ b/perl-HTTP-Negotiate.spec
@@ -1,10 +1,11 @@
-Name:           perl-HTTP-Negotiate
+%define mod_name HTTP-Negotiate
+Name:           perl-%{mod_name}
 Version:        6.01
-Release:        22
+Release:        23
 Summary:        Choose a variant to serve
 License:        GPL+ or Artistic
-URL:            https://metacpan.org/release/HTTP-Negotiate
-Source0:        https://cpan.metacpan.org/authors/id/G/GA/GAAS/HTTP-Negotiate-%{version}.tar.gz
+URL:            https://metacpan.org/release/%{mod_name}
+Source0:        https://cpan.metacpan.org/authors/id/G/GA/GAAS/%{mod_name}-%{version}.tar.gz
 
 BuildArch:      noarch
 
@@ -22,13 +23,13 @@ content representation based upon attributes of the negotiable variants and the
 Accept* header fields in the request.
 
 %package        help
-Summary:        Documentation for perl-HTTP-Negotiate
+Summary:        Documentation for perl-%{mod_name}
 
 %description    help
-Documentation for perl-HTTP-Negotiate.
+Documentation for perl-%{mod_name}.
 
 %prep
-%autosetup -n HTTP-Negotiate-%{version} -p1
+%autosetup -n %{mod_name}-%{version} -p1
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1
@@ -50,6 +51,9 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Tue Oct 25 2022 zhoushuiqing <zhoushuiqing2@huawei.com> - 6.01-23
+- define mod_name to opitomize the specfile
+
 * Wed Nov 13 2019 dongjian <dongjian13@huawei.com> - 6.01-22
 - Package init