diff --git a/perl-Thread-Queue.spec b/perl-Thread-Queue.spec
index 121de33..75a10a8 100644
--- a/perl-Thread-Queue.spec
+++ b/perl-Thread-Queue.spec
@@ -1,10 +1,11 @@
-Name:           perl-Thread-Queue
+%define mod_name Thread-Queue
+Name:           perl-%{mod_name}
 Version:        3.13
-Release:        3
+Release:        4
 Summary:        Thread-safe queues
 License:        GPL+ or Artistic
-URL:            https://metacpan.org/release/Thread-Queue
-Source0:        https://cpan.metacpan.org/authors/id/J/JD/JDHEDDEN/Thread-Queue-%{version}.tar.gz
+URL:            https://metacpan.org/release/%{mod_name}
+Source0:        https://cpan.metacpan.org/authors/id/J/JD/JDHEDDEN/%{mod_name}-%{version}.tar.gz
 BuildArch:      noarch
 BuildRequires:  make sed perl-generators perl-interpreter
 BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.76 perl(Test::More) >= 0.50
@@ -36,7 +37,7 @@ requires:	man
 The %{name}-help package contains doc files for %{name}.
 
 %prep
-%autosetup -n Thread-Queue-%{version}
+%autosetup -n %{mod_name}-%{version}
 sed -i -e '1 s|^#!/usr/bin/env perl|%(perl -MConfig -e 'print $Config{startperl}')|' examples/queue.pl
 
 %build
@@ -59,6 +60,9 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Tue Oct 25 2022 huyubiao <huyubiao@huawei.com> - 3.13-4
+- define mod_name to opitomize the specfile
+
 * Fri Sep 27 2019 luhuaxin <luhuaxin@huawei.com> - 3.13-3
 - Type: enhancement
 - ID: NA