Change 17767 by [EMAIL PROTECTED] on 2002/08/25 13:52:08
Subject: [perl #16281] patch to enable perldoc -n for MSWin32 (perl-5.8.0)
From: "Randy W. Sims" (via RT) <[EMAIL PROTECTED]>
Date: 18 Aug 2002 13:27:12 -0000
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/utils/perldoc.PL#69 edit
Differences ...
==== //depot/perl/utils/perldoc.PL#69 (text) ====
Index: perl/utils/perldoc.PL
--- perl/utils/perldoc.PL#68~17083~ Sat Jun 8 04:44:59 2002
+++ perl/utils/perldoc.PL Sun Aug 25 06:52:08 2002
@@ -109,7 +109,7 @@
-r Recursive search (slow)
-i Ignore case
-t Display pod using pod2text instead of pod2man and nroff
- (-t is the default on win32)
+ (-t is the default on win32 unless -n is specified)
-u Display unformatted pod text
-m Display module's file in its entirety
-n Specify replacement for nroff
@@ -197,8 +197,6 @@
die "Superuser must not run $0 without security audit and taint checks.\n";
}}
-$opt_n = "nroff" if !$opt_n;
-
my $podidx;
if ($opt_X) {
$podidx = "$Config{'archlib'}/pod.idx";
@@ -212,11 +210,13 @@
|| $Is_Dos
|| !($ENV{TERM} && $ENV{TERM} !~ /dumb|emacs|none|unknown/i))
{
- $opt_t = 1 unless $opts;
+ $opt_t = 1 unless ( $opts || $opt_n );
}
if ($opt_t) { require Pod::Text; import Pod::Text; }
+$opt_n = "nroff" if !$opt_n;
+
my @pages;
if ($opt_f) {
@pages = ("perlfunc");
@@ -779,7 +779,7 @@
=head1 VERSION
-This is perldoc v2.03.
+This is perldoc v2.04.
=head1 AUTHOR
@@ -791,6 +791,9 @@
=cut
#
+# Version 2.04: Sun Aug 18 13:27:12 BST 2002
+# Randy W. Sims <[EMAIL PROTECTED]>
+# allow -n to enable nroff under Win32
# Version 2.03: Sun Apr 23 16:56:34 BST 2000
# Hugo van der Sanden <[EMAIL PROTECTED]>
# don't die when 'use blib' fails
End of Patch.
