This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
amigaos4: cpan/Pod-Perldoc: add pager preferences
[perl5.git] / cpan / Pod-Perldoc / lib / Pod / Perldoc.pm
index 08c443e..05483cf 100644 (file)
@@ -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 <';