diff --git a/Text-Tabs+Wrap-2013.0523-Build-from-lib.patch b/Text-Tabs+Wrap-2013.0523-Build-from-lib.patch
deleted file mode 100644
index 82c76ec..0000000
--- a/Text-Tabs+Wrap-2013.0523-Build-from-lib.patch
+++ /dev/null
@@ -1,56 +0,0 @@
-From 425354918f774c39c68b79de55691ee262cdcb84 Mon Sep 17 00:00:00 2001
-From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
-Date: Wed, 25 Mar 2015 17:57:05 +0100
-Subject: [PATCH] Build from lib
-MIME-Version: 1.0
-Content-Type: text/plain; charset=UTF-8
-Content-Transfer-Encoding: 8bit
-
-Building from lib.modern adds "modern::" prefix to manual pages.
-
-This is a work-around for CPAN RT#103116. Creating symlink is not
-enough for EU::MM.
-
-Signed-off-by: Petr Písař <ppisar@redhat.com>
-
-diff --git a/Makefile.PL b/Makefile.PL
-index a8dbc7e..1b5b51a 100644
---- a/Makefile.PL
-+++ b/Makefile.PL
-@@ -1,10 +1,15 @@
- 
- use ExtUtils::MakeMaker;
- 
-+if (!-d 'lib') {
-+    rename (($] > 5.010 ? 'lib.modern' : 'lib.old'), 'lib') or
-+        die "Could not rename to lib: $!";
-+}
-+
- WriteMakefile( 
- 	'NAME'		=> 'Text-Wrap',
- 	'DISTNAME'	  => 'Text-Tabs+Wrap',
--	'VERSION_FROM' => 'lib.modern/Text/Wrap.pm',
-+	'VERSION_FROM' => 'lib/Text/Wrap.pm',
- 	($] >= 5.005 ? 
- 		(
- 			ABSTRACT	=> 'Expand tabs and do simple line wrapping',
-@@ -21,16 +26,5 @@ WriteMakefile(
- 	'dist' => { COMPRESS=>"gzip", SUFFIX=>"gz" },
- 	'INSTALLDIRS'	=> 'perl',
- 
--	PM =>	($] > 5.010 ?
--		{
--			'lib.modern/Text/Tabs.pm'	=> '$(INST_LIBDIR)/Text/Tabs.pm',
--			'lib.modern/Text/Wrap.pm'	=> '$(INST_LIBDIR)/Text/Wrap.pm',
--		}
--		:
--		{
--			'lib.old/Text/Tabs.pm'	=> '$(INST_LIBDIR)/Text/Tabs.pm',
--			'lib.old/Text/Wrap.pm'	=> '$(INST_LIBDIR)/Text/Wrap.pm',
--		})
--
- 	);
- 
--- 
-2.1.0
-
diff --git a/perl-Text-Tabs+Wrap.spec b/perl-Text-Tabs+Wrap.spec
index 0c47bd5..495535b 100644
--- a/perl-Text-Tabs+Wrap.spec
+++ b/perl-Text-Tabs+Wrap.spec
@@ -1,11 +1,10 @@
 Name:           perl-Text-Tabs+Wrap
 Version:        2013.0523
-Release:        418
+Release:        419
 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
-Patch0:         Text-Tabs+Wrap-2013.0523-Build-from-lib.patch
 BuildArch:      noarch
 BuildRequires:  perl-interpreter perl-generators
 BuildRequires:  perl(ExtUtils::MakeMaker) perl(Test::More)
@@ -53,5 +52,8 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Sun Jan 12 2020 openEuler Buildteam <buildteam@openeuler.org> - 2013.0523-419
+- Delete redundant file
+
 * Mon Sep 16 2019 luhuaxin <luhuaxin@huawei.com> - 2013.0523-418
 - Package init