From 979d099a6fff3899afa990942da5a3db40e87a12 Mon Sep 17 00:00:00 2001 From: "Gerrit P. Haase" Date: Tue, 24 Jun 2003 13:00:34 +0200 Subject: [PATCH] lib/Perldoc.pm patch for Cygwin Bleadperl From: "Gerrit P. Haase" Message-ID: <186930306740.20030624110034@familiehaase.de> p4raw-id: //depot/perl@19848 --- lib/Pod/Perldoc.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/Pod/Perldoc.pm b/lib/Pod/Perldoc.pm index 3321d39..2a5b149 100644 --- a/lib/Pod/Perldoc.pm +++ b/lib/Pod/Perldoc.pm @@ -44,6 +44,7 @@ BEGIN { *IS_MSWin32 = $^O eq 'MSWin32' ? \&TRUE : \&FALSE unless defined &IS_MSWin32; *IS_Dos = $^O eq 'dos' ? \&TRUE : \&FALSE unless defined &IS_Dos; *IS_OS2 = $^O eq 'os2' ? \&TRUE : \&FALSE unless defined &IS_OS2; + *IS_Cygwin = $^O eq 'cygwin' ? \&TRUE : \&FALSE unless defined &IS_Cygwin; } $Temp_File_Lifetime ||= 60 * 60 * 24 * 5; @@ -358,7 +359,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('man') unless IS_MSWin32 || IS_Dos + $self->opt_o_with('man') unless IS_MSWin32 || IS_Dos || IS_Cygwin || !($ENV{TERM} && $ENV{TERM} !~ /dumb|emacs|none|unknown/i); return; -- 2.7.4