|
 |
e87a2a |
From d469b8609b566b972c7cc3ed74029cdddea50eee Mon Sep 17 00:00:00 2001
|
|
|
e87a2a |
From: Jitka Plesnikova <jplesnik@redhat.com>
|
|
|
e87a2a |
Date: Thu, 24 May 2018 10:48:47 +0200
|
|
|
e87a2a |
Subject: [PATCH] Upgrade to 3.2801
|
|
|
e87a2a |
|
|
|
e87a2a |
---
|
|
|
e87a2a |
lib/Pod/Perldoc.pm | 12 +-----------
|
|
|
e87a2a |
1 file changed, 1 insertion(+), 11 deletions(-)
|
|
|
e87a2a |
|
|
|
e87a2a |
diff --git a/lib/Pod/Perldoc.pm b/lib/Pod/Perldoc.pm
|
|
|
e87a2a |
index 8d695b2..bb6ffc8 100644
|
|
|
e87a2a |
--- a/lib/Pod/Perldoc.pm
|
|
|
e87a2a |
+++ b/lib/Pod/Perldoc.pm
|
|
|
e87a2a |
@@ -12,7 +12,7 @@ use File::Spec::Functions qw(catfile catdir splitdir);
|
|
|
e87a2a |
use vars qw($VERSION @Pagers $Bindir $Pod2man
|
|
|
e87a2a |
$Temp_Files_Created $Temp_File_Lifetime
|
|
|
e87a2a |
);
|
|
|
e87a2a |
-$VERSION = '3.28';
|
|
|
e87a2a |
+$VERSION = '3.2801';
|
|
|
e87a2a |
|
|
|
e87a2a |
#..........................................................................
|
|
|
e87a2a |
|
|
|
e87a2a |
@@ -486,11 +486,6 @@ sub init_formatter_class_list {
|
|
|
e87a2a |
|
|
|
e87a2a |
$self->opt_M_with('Pod::Perldoc::ToPod'); # the always-there fallthru
|
|
|
e87a2a |
$self->opt_o_with('text');
|
|
|
e87a2a |
- $self->opt_o_with('term')
|
|
|
e87a2a |
- unless $self->is_mswin32 || $self->is_dos || $self->is_amigaos
|
|
|
e87a2a |
- || !($ENV{TERM} && (
|
|
|
e87a2a |
- ($ENV{TERM} || '') !~ /dumb|emacs|none|unknown/i
|
|
|
e87a2a |
- ));
|
|
|
e87a2a |
|
|
|
e87a2a |
return;
|
|
|
e87a2a |
}
|
|
|
e87a2a |
@@ -1937,11 +1932,6 @@ sub page { # apply a pager to the output file
|
|
|
e87a2a |
} elsif($self->is_amigaos) {
|
|
|
e87a2a |
last if system($pager, $output) == 0;
|
|
|
e87a2a |
} else {
|
|
|
e87a2a |
- my $formatter = $self->{'formatter_class'};
|
|
|
e87a2a |
- if ( $formatter->can('pager_configuration') ) {
|
|
|
e87a2a |
- $self->aside("About to call $formatter" . "->pager_configuration(\"$pager\")\n");
|
|
|
e87a2a |
- $formatter->pager_configuration($pager, $self);
|
|
|
e87a2a |
- }
|
|
|
e87a2a |
last if system("$pager \"$output\"") == 0;
|
|
|
e87a2a |
}
|
|
|
e87a2a |
}
|
|
|
e87a2a |
--
|
|
|
e87a2a |
2.14.3
|
|
|
e87a2a |
|