diff options
author | Andy Broad <andy@broad.ology.org.uk> | 2015-08-13 21:12:16 -0400 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2015-09-05 11:12:47 -0400 |
commit | 79cae82cdd68857c2efc2c72c46eec0ebc4a01a4 (patch) | |
tree | 764c135d862c0860fbd191e17f132f96cbb87043 /cpan/Pod-Perldoc | |
parent | 88534e79344ad04962c36b8c6dbcdb0018078eda (diff) | |
download | perl-79cae82cdd68857c2efc2c72c46eec0ebc4a01a4.tar.gz |
amigaos4: cpan/Pod-Perldoc: different paging
Upstreamed: https://rt.cpan.org/Ticket/Display.html?id=106798
Diffstat (limited to 'cpan/Pod-Perldoc')
-rw-r--r-- | cpan/Pod-Perldoc/lib/Pod/Perldoc.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm b/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm index 969019d89a..a952466113 100644 --- a/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm +++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm @@ -69,6 +69,7 @@ BEGIN { *is_cygwin = $^O eq 'cygwin' ? \&TRUE : \&FALSE unless defined &is_cygwin; *is_linux = $^O eq 'linux' ? \&TRUE : \&FALSE unless defined &is_linux; *is_hpux = $^O =~ m/hpux/ ? \&TRUE : \&FALSE unless defined &is_hpux; + *is_amigaos = $^O eq 'amigaos' ? \&TRUE : \&FALSE unless defined &is_amigaos; } $Temp_File_Lifetime ||= 60 * 60 * 24 * 5; @@ -484,7 +485,7 @@ 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->opt_o_with('term') unless $self->is_mswin32 || $self->is_dos || $self->is_amigaos || !($ENV{TERM} && ( ($ENV{TERM} || '') !~ /dumb|emacs|none|unknown/i )); @@ -1912,10 +1913,15 @@ sub page { # apply a pager to the output file # many many corners of the OS don't like it. So we # have to force it to be "\" to make everyone happy. + # if we are on an amiga convert unix path to an amiga one + $output =~ s/^\/(.*)\/(.*)/$1:$2/ if $self->is_amigaos; + foreach my $pager (@pagers) { $self->aside("About to try calling $pager $output\n"); if ($self->is_vms) { last if system("$pager $output") == 0; + } elsif($self->is_amigaos) { + last if system($pager, $output) == 0; } else { # fix visible escape codes in ToTerm output # https://bugs.debian.org/758689 |