From: Gerrit P. Haase <gp@familiehaase.de>
Date: Tue, 24 Jun 2003 11:00:34 +0000 (+0200)
Subject: lib/Perldoc.pm patch for Cygwin Bleadperl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=979d099a6fff3899afa990942da5a3db40e87a12;p=p5sagit%2Fp5-mst-13.2.git

lib/Perldoc.pm patch for Cygwin Bleadperl
From: "Gerrit P. Haase" <gerrit@familiehaase.de>
Message-ID: <186930306740.20030624110034@familiehaase.de>

p4raw-id: //depot/perl@19848
---

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;