packages/perl-Pod-Perldoc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove unnecessary files

Browse Source
This commit is contained in:
openeuler-basic 2020-01-12 19:43:00 +08:00
parent 5e9f75f509
commit 4671d37b8d
2 changed files with 11 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
Pod-Perldoc-3.28-Upgrade-to-3.2801.patch
View File

@ -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

17
perl-Pod-Perldoc.spec
View File

@ -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