diff --git a/perl-Devel-PPPort.spec b/perl-Devel-PPPort.spec
index ba3ac54..25d2794 100644
--- a/perl-Devel-PPPort.spec
+++ b/perl-Devel-PPPort.spec
@@ -1,10 +1,12 @@
+%define mod_name Devel-PPPort
+
 Name:           perl-Devel-PPPort
 Version:        3.63
-Release:        1
+Release:        2
 Summary:        Perl Pollution Portability header generator
 License:        GPL+ or Artistic
-URL:            https://metacpan.org/release/Devel-PPPort
-Source0:        https://cpan.metacpan.org/authors/id/A/AT/ATOOMIC/Devel-PPPort-%{version}.tar.gz
+URL:            https://metacpan.org/release/%{mod_name}
+Source0:        https://cpan.metacpan.org/authors/id/A/AT/ATOOMIC/%{mod_name}-%{version}.tar.gz
 BuildRequires:  findutils gcc make perl-devel perl-generators perl-interpreter perl(ExtUtils::MakeMaker) perl(strict) perl(vars)
 # For tests:
 BuildRequires:  perl(Config) perl(DynaLoader) perl(File::Path) perl(Tie::Hash) perl(utf8)
@@ -28,7 +30,7 @@ The %{name}-help package contains doc files for %{name}.
 %{?perl_default_filter}
 
 %prep
-%setup -q -n Devel-PPPort-%{version}
+%setup -q -n %{mod_name}-%{version}
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 OPTIMIZE="$RPM_OPT_FLAGS"
@@ -51,6 +53,9 @@ make test
 %{_mandir}/*/*
 
 %changelog
+* Mon Oct 31 2022 hongjinghao <hongjinghao@huawei.com> - 3.63-2
+- use %{mod_name} marco
+
 * Tue Nov 23 2021 shixuantong <shixuantong@huawei.com> - 3.63-1
 - upgrade version to 3.63