diff --git a/perl-Business-ISBN-Data.spec b/perl-Business-ISBN-Data.spec
index d0533d3..e6f9521 100644
--- a/perl-Business-ISBN-Data.spec
+++ b/perl-Business-ISBN-Data.spec
@@ -1,10 +1,11 @@
-Name:           perl-Business-ISBN-Data
+%define mod_name Business-ISBN-Data
+Name:           perl-%{mod_name}
 Version:        20210112.006
-Release:        1
+Release:        2
 Summary:	Data pack for Business::ISBN
 License:        GPL+ or Artistic
 URL:            https://metacpan.org/pod/Business::ISBN::Data
-Source0:        https://cpan.metacpan.org/authors/id/B/BD/BDFOY/Business-ISBN-Data-%{version}.tar.gz
+Source0:        https://cpan.metacpan.org/authors/id/B/BD/BDFOY/%{mod_name}-%{version}.tar.gz
 
 Patch0:         Business-ISBN-Data-shellbang.patch
 BuildArch:      noarch
@@ -20,7 +21,7 @@ This package is the data pack for Business::ISBN
 %package_help
 
 %prep
-%autosetup -n Business-ISBN-Data-%{version} -p1
+%autosetup -n %{mod_name}-%{version} -p1
 
 chmod -c +x make_data.pl
 
@@ -44,6 +45,9 @@ make test
 %{_mandir}/man3/Business::ISBN::Data.3*
 
 %changelog
+* Mon Oct 31 2022 hongjinghao <hongjinghao@huawei.com> - 20210112.006-2
+- use %{mod_name} marco
+
 * Mon Dec 20 2021 shixuantong <shixuantong@huawei.com> - 20210112.006-1
 - update version to 20210112.006