diff --git a/Text-Tabs+Wrap-2013.0523.tar.gz b/Text-Tabs+Wrap-2013.0523.tar.gz
deleted file mode 100644
index 1f710ca..0000000
Binary files a/Text-Tabs+Wrap-2013.0523.tar.gz and /dev/null differ
diff --git a/Text-Tabs+Wrap-2021.0814.tar.gz b/Text-Tabs+Wrap-2021.0814.tar.gz
new file mode 100644
index 0000000..e648389
Binary files /dev/null and b/Text-Tabs+Wrap-2021.0814.tar.gz differ
diff --git a/perl-Text-Tabs+Wrap.spec b/perl-Text-Tabs+Wrap.spec
index 495535b..c05c571 100644
--- a/perl-Text-Tabs+Wrap.spec
+++ b/perl-Text-Tabs+Wrap.spec
@@ -1,10 +1,10 @@
 Name:           perl-Text-Tabs+Wrap
-Version:        2013.0523
-Release:        419
+Version:        2021.0814
+Release:        1
 Summary:        Expand tabs and do simple line wrapping
 License:        TTWL
 URL:            https://metacpan.org/release/Text-Tabs%2BWrap
-Source0:        https://cpan.metacpan.org/authors/id/M/MU/MUIR/modules/Text-Tabs+Wrap-%{version}.tar.gz
+Source0:        https://cpan.metacpan.org/authors/id/A/AR/ARISTOTLE//Text-Tabs+Wrap-%{version}.tar.gz
 BuildArch:      noarch
 BuildRequires:  perl-interpreter perl-generators
 BuildRequires:  perl(ExtUtils::MakeMaker) perl(Test::More)
@@ -52,6 +52,9 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Fri Dec  3 2021 guozhaorui <guozhaorui1@huawei.com> - 2021.0814-1
+- update version to 2021.0814
+
 * Sun Jan 12 2020 openEuler Buildteam <buildteam@openeuler.org> - 2013.0523-419
 - Delete redundant file