From 4671d37b8da39eee597f9760e467705d6f692806 Mon Sep 17 00:00:00 2001
From: openeuler-basic <shenyangyang4@huawei.com>
Date: Sun, 12 Jan 2020 19:43:00 +0800
Subject: [PATCH] remove unnecessary files

---
 Pod-Perldoc-3.28-Upgrade-to-3.2801.patch | 49 ------------------------
 perl-Pod-Perldoc.spec                    | 17 +++++---
 2 files changed, 11 insertions(+), 55 deletions(-)
 delete mode 100644 Pod-Perldoc-3.28-Upgrade-to-3.2801.patch

diff --git a/Pod-Perldoc-3.28-Upgrade-to-3.2801.patch b/Pod-Perldoc-3.28-Upgrade-to-3.2801.patch
deleted file mode 100644
index e33a3ed..0000000
--- a/Pod-Perldoc-3.28-Upgrade-to-3.2801.patch
+++ /dev/null
@@ -1,49 +0,0 @@
-From d469b8609b566b972c7cc3ed74029cdddea50eee Mon Sep 17 00:00:00 2001
-From: Jitka Plesnikova <jplesnik@redhat.com>
-Date: Thu, 24 May 2018 10:48:47 +0200
-Subject: [PATCH] Upgrade to 3.2801
-
----
- lib/Pod/Perldoc.pm | 12 +-----------
- 1 file changed, 1 insertion(+), 11 deletions(-)
-
-diff --git a/lib/Pod/Perldoc.pm b/lib/Pod/Perldoc.pm
-index 8d695b2..bb6ffc8 100644
---- a/lib/Pod/Perldoc.pm
-+++ b/lib/Pod/Perldoc.pm
-@@ -12,7 +12,7 @@ use File::Spec::Functions qw(catfile catdir splitdir);
- use vars qw($VERSION @Pagers $Bindir $Pod2man
-   $Temp_Files_Created $Temp_File_Lifetime
- );
--$VERSION = '3.28';
-+$VERSION = '3.2801';
- 
- #..........................................................................
- 
-@@ -486,11 +486,6 @@ sub init_formatter_class_list {
- 
-   $self->opt_M_with('Pod::Perldoc::ToPod');   # the always-there fallthru
-   $self->opt_o_with('text');
--  $self->opt_o_with('term') 
--    unless $self->is_mswin32 || $self->is_dos || $self->is_amigaos
--       || !($ENV{TERM} && (
--              ($ENV{TERM} || '') !~ /dumb|emacs|none|unknown/i
--           ));
- 
-   return;
- }
-@@ -1937,11 +1932,6 @@ sub page {  # apply a pager to the output file
- 	    } elsif($self->is_amigaos) { 
-                 last if system($pager, $output) == 0;
-             } else {
--                my $formatter = $self->{'formatter_class'};
--                if ( $formatter->can('pager_configuration') ) {
--                  $self->aside("About to call $formatter" . "->pager_configuration(\"$pager\")\n");
--                  $formatter->pager_configuration($pager, $self);
--                }
-                 last if system("$pager \"$output\"") == 0;
-             }
-         }
--- 
-2.14.3
-
diff --git a/perl-Pod-Perldoc.spec b/perl-Pod-Perldoc.spec
index 49eef34..5a543e0 100644
--- a/perl-Pod-Perldoc.spec
+++ b/perl-Pod-Perldoc.spec
@@ -1,12 +1,11 @@
-%global src_version 3.28
 Name:           perl-Pod-Perldoc
-Version:        3.28.01
-Release:        421
+Epoch:          1
+Version:        3.28
+Release:        1
 Summary:        Look up Perl documentation in Pod format
 License:        GPL+ or Artistic
 URL:            https://metacpan.org/release/Pod-Perldoc
-Source0:        https://cpan.metacpan.org/authors/id/M/MA/MALLEN/Pod-Perldoc-%{src_version}.tar.gz
-Patch0:         Pod-Perldoc-3.28-Upgrade-to-3.2801.patch
+Source0:        https://cpan.metacpan.org/authors/id/M/MA/MALLEN/Pod-Perldoc-%{version}.tar.gz
 BuildArch:      noarch
 BuildRequires:  perl-interpreter perl-generators perl(ExtUtils::MakeMaker) perl(Test::More)
 Requires:       groff-base perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version)) perl(File::Temp) perl(HTTP::Tiny) perl(IO::Handle)
@@ -21,7 +20,7 @@ the perl library modules.
 %package_help
 
 %prep
-%autosetup -n Pod-Perldoc-%{src_version} -p1
+%autosetup -n Pod-Perldoc-%{version} -p1
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 
@@ -44,6 +43,12 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Sat Jan 11 2020 openEuler Buildteam <buildteam@openeuler.org> - 1:3.28-1
+- Type: enhancement
+- ID: NA
+- SUG: NA
+- DESC: remove unnecessary files
+
 * Mon Sep 30 2019 yefei <yefei25@huawei.com> - 3.28.01-421
 - Type:enhancement
 - ID:NA