!4 【轻量级 PR】：添加%{mod_name}宏

From: @hongjinghao 
Reviewed-by: @caodongxia 
Signed-off-by: @caodongxia

perl-Try-Tiny.spec

@@ -1,12 +1,13 @@
 %global __provides_exclude_from %{?__provides_exclude_from:%__provides_exclude_from|}^%{_docdir}/
+%define mod_name Try-Tiny
 
 Name:          perl-Try-Tiny
 Summary:       Minimal try/catch with proper preservation of $@
 Version:       0.31
-Release:       1
+Release:       2
 License:       MIT
-URL:           https://metacpan.org/release/Try-Tiny
-Source0:       https://cpan.metacpan.org/authors/id/E/ET/ETHER/Try-Tiny-%{version}.tar.gz
+URL:           https://metacpan.org/release/%{mod_name}
+Source0:       https://cpan.metacpan.org/authors/id/E/ET/ETHER/%{mod_name}-%{version}.tar.gz
 
 BuildArch:     noarch
 
@@ -21,7 +22,7 @@ This module provides bare bones try/catch statements that are designed to minimi
 eval blocks, and NOTHING else.
 
 %prep
-%autosetup -n Try-Tiny-%{version} -p1
+%autosetup -n %{mod_name}-%{version} -p1
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor
@@ -41,6 +42,9 @@ make test
 %{_mandir}/man3/Try::Tiny.3*
 
 %changelog
+* Mon Oct 31 2022 hongjinghao <hongjinghao@huawei.com> - 0.31-2
+- use %{mod_name} marco
+
 * Tue Dec  7 2021 guozhaorui <guozhaorui1@huawei.com> - 0.31-1
 - update version to 0.31