diff options
| author | Andy Broad <andy@broad.ology.org.uk> | 2015-12-15 21:48:03 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2015-12-15 22:12:12 -0500 |
| commit | b8d02aa22e8edbefeda98aac7b279341cb80702f (patch) | |
| tree | 3505869d5dbeeeccf8c501e5182ef0502ef5a855 /cpan/Pod-Perldoc | |
| parent | dafb6ea9e2130cd6e7253980f7fe081c83ed4f12 (diff) | |
| download | perl-b8d02aa22e8edbefeda98aac7b279341cb80702f.tar.gz | |
amigaos4: cpan/Pod-Perldoc: add pager preferences
Upstreamed: https://rt.cpan.org/Ticket/Display.html?id=110368
Diffstat (limited to 'cpan/Pod-Perldoc')
| -rw-r--r-- | cpan/Pod-Perldoc/lib/Pod/Perldoc.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm b/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm index 08c443edcc..05483cf05b 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 <'; |