Package init

Pod-Perldoc-3.28-Upgrade-to-3.2801.patch

@@ -0,0 +1,49 @@
+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
+

perl-Pod-Perldoc.spec

@@ -0,0 +1,60 @@
+%global src_version 3.28
+Name:           perl-Pod-Perldoc
+Version:        3.28.01
+Release:        421
+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
+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)
+Requires:       perl(IPC::Open3) perl(Pod::Simple::Checker) perl(Pod::Simple::RTF) perl(Pod::Simple::XMLOutStream) perl(Text::ParseWords) perl(Symbol)
+
+%description
+perldoc looks up a piece of documentation in .pod format that is embedded
+in the perl installation tree or in a perl script, and displays it via
+"groff -man | $PAGER". This is primarily used for the documentation for
+the perl library modules.
+
+%package_help
+
+%prep
+%autosetup -n Pod-Perldoc-%{src_version} -p1
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 
+%make_build
+
+%install
+make pure_install DESTDIR=%{buildroot}
+%{_fixperms} %{buildroot}
+
+%check
+make test
+
+%files
+%{_bindir}/perldoc
+%{perl_vendorlib}/*
+
+%files help
+%doc Changes README
+%{_mandir}/man1/*
+%{_mandir}/man3/*
+
+%changelog
+* Mon Sep 30 2019 yefei <yefei25@huawei.com> - 3.28.01-421
+- Type:enhancement
+- ID:NA
+- SUG:NA
+- DESC: delete irrelevant information
+
+* Thu Sep 26 2019 yefei <yefei25@huawei.com> - 3.28.01-420
+- Type:enhancement
+- ID:NA
+- SUG:NA
+- DESC: add requires
+
+* Wed Sep 11 2019 openEuler Buildteam <buildteam@openeuler.org> - 3.28.01-419
+- Package init