From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 27 Jul 2003 18:02:24 +0000 (+0000)
Subject: Reapply some perldoc changes not in 3.09.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fe1343f790f30272aad7d506d7852dda8a668e7d;p=p5sagit%2Fp5-mst-13.2.git

Reapply some perldoc changes not in 3.09.

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

diff --git a/lib/Pod/Perldoc.pm b/lib/Pod/Perldoc.pm
index 55976b6..c069dfe 100644
--- a/lib/Pod/Perldoc.pm
+++ b/lib/Pod/Perldoc.pm
@@ -360,7 +360,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
            ));
@@ -485,7 +485,7 @@ sub find_good_formatter_class {
       } else {
         $^W = 0;
         # The average user just has no reason to be seeing
-        #  $^W-suppressable warnings from the the require!
+        #  $^W-suppressable warnings from the require!
       }
 
       eval "require $c";
@@ -1701,7 +1701,7 @@ __END__
 #	 it'll run faster.
 #
 # Version 1.01:	Tue May 30 14:47:34 EDT 1995
-#		Andy Dougherty  <doughera@lafcol.lafayette.edu>
+#		Andy Dougherty  <doughera@lafayette.edu>
 #   -added pod documentation.
 #   -added PATH searching.
 #   -added searching pod/ subdirectory (mainly to pick up perlfunc.pod