| Subject: | [PATCH] amigaos4: more pager patching |
The attached patch augments, does not replace, the earlier patch https://rt.cpan.org/Ticket/Display.html?id=106798
| Subject: | 0001-amigaos4-add-pager-preferences.patch |
From e3cf54118b49ef8e9de77b5ed4fb3c7d7a135311 Mon Sep 17 00:00:00 2001
From: Andy Broad <andy@broad.ology.org.uk>
Date: Tue, 15 Dec 2015 21:48:03 -0500
Subject: [PATCH 1/2] amigaos4: add pager preferences
---
cpan/Pod-Perldoc/lib/Pod/Perldoc.pm | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm b/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm
index 08c443e..05483cf 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm
@@ -1664,6 +1664,10 @@ sub pagers_guessing {
push @pagers, qw( less.exe more.com< );
unshift @pagers, $ENV{PAGER} if $ENV{PAGER};
}
+ elsif ( $self->is_amigaos) {
+ push @pagers, qw( /SYS/Utilities/MultiView /SYS/Utilities/More /C/TYPE );
+ unshift @pagers, "$ENV{PAGER}" if $ENV{PAGER};
+ }
else {
if ($self->is_os2) {
unshift @pagers, 'less', 'cmd /c more <';
--
2.6.0