Change 19848 by [EMAIL PROTECTED] on 2003/06/24 08:06:57
Subject: [PATCH] lib/Perldoc.pm patch for Cygwin Bleadperl
From: "Gerrit P. Haase" <[EMAIL PROTECTED]>
Date: Tue, 24 Jun 2003 11:00:34 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/Pod/Perldoc.pm#6 edit
Differences ...
==== //depot/perl/lib/Pod/Perldoc.pm#6 (text) ====
Index: perl/lib/Pod/Perldoc.pm
--- perl/lib/Pod/Perldoc.pm#5~18969~ Thu Mar 13 21:43:34 2003
+++ perl/lib/Pod/Perldoc.pm Tue Jun 24 01:06:57 2003
@@ -44,6 +44,7 @@
*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 @@
$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;
End of Patch.
