diff --git a/perl-Text-Diff.spec b/perl-Text-Diff.spec
index b8e79c669cdbea3fff3c6f028d7f36e89ec39bc9..6b71d9deeb774ec7769e9f121785f27668e28988 100644
--- a/perl-Text-Diff.spec
+++ b/perl-Text-Diff.spec
@@ -1,64 +1,53 @@
-%define anolis_release 3
-Name:           perl-Text-Diff
+%define anolis_release 4
+%global modname Text-Diff
+%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\(Algorithm::Diff\\)$
+
+Name:           perl-%{modname}
 Version:        1.45
 Release: %{anolis_release}%{dist}
 Summary:        Perform diffs on files and record sets
 License:        (GPL+ or Artistic) and (GPLv2+ or Artistic) and MIT
-URL:            https://metacpan.org/release/Text-Diff
-Source0:        https://cpan.metacpan.org/authors/id/N/NE/NEILB/Text-Diff-%{version}.tar.gz
-BuildArch:      noarch
-BuildRequires:  make
-BuildRequires:  perl-interpreter
-BuildRequires:  perl-generators
-BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.76
-BuildRequires:  perl(strict)
-# Run-time:
-BuildRequires:  perl(Algorithm::Diff) >= 1.19
-BuildRequires:  perl(Carp)
-BuildRequires:  perl(constant)
-BuildRequires:  perl(Exporter)
-BuildRequires:  perl(vars)
-BuildRequires:  perl(warnings)
-# Optional run-time:
-BuildRequires:  perl(utf8)
-# Tests:
-BuildRequires:  perl(Data::Dumper)
-BuildRequires:  perl(IO::File)
-BuildRequires:  perl(Test)
-BuildRequires:  perl(Test::More)
+URL:            https://metacpan.org/release/%{modname}
+Source0:        https://cpan.metacpan.org/authors/id/N/NE/NEILB/%{modname}-%{version}.tar.gz
+
+BuildRequires:  make perl-interpreter perl-generators
+BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.76 perl(Algorithm::Diff) >= 1.19
+BuildRequires:  perl(strict) perl(Carp) perl(constant) perl(Exporter)
+BuildRequires:  perl(vars) perl(warnings) perl(utf8) perl(Data::Dumper)
+BuildRequires:  perl(IO::File) perl(Test) perl(Test::More)
+
 Requires:       perl(Algorithm::Diff) >= 1.19
 
-# Remove under-specified dependencies
-%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\(Algorithm::Diff\\)$
+BuildArch:      noarch
 
 %description
-Text::Diff provides a basic set of services akin to the GNU diff utility.
-It is not anywhere near as feature complete as GNU diff, but it is better
-integrated with Perl and available on all platforms. It is often faster
-than shelling out to a system's diff executable for small files, and
-generally slower on larger files.
+Module::Load allows for generic loading of modules and files. Simply give it
+the name of a module or file and it will Do What You Mean (tm).
 
 %prep
-%setup -q -n Text-Diff-%{version}
+%autosetup -n %{modname}-%{version}
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1
-make %{?_smp_mflags}
+%make_build
 
 %install
 make pure_install DESTDIR=%{buildroot}
-%{_fixperms} %{buildroot}/*
+%{_fixperms} -c %{buildroot}
 
 %check
 make test
 
 %files
-%license LICENSE
-%doc Changes README
 %{perl_vendorlib}/*
 %{_mandir}/man3/*
+%doc README Changes
+%license LICENSE
+
+%changelog
+* Sat Apr 15 2023 Yuanhong Peng <yummypeng@linux.alibaba.com> - 1.45-4
+- Refactor the specfile
 
-%changelog 
 * Fri Feb 03 2023 mgb01105731 <mgb01105731@alibaba-inc.com> - 1.45-3
 - remove versioned MODULE_COMPAT_ requires