perldoc under Win32 currently defaults to -t (display as text) with no way to override. There is a version of GNU groff available for Win32 <http://gnuwin32.sf.net> that would allow viewing as formatted text pages, which is much easier to read. I made a few minor changes to perldoc to allow viewing with groff and hope to submit it as a patch. Before I do that, I was hoping that some of you might be willing to help test the patch.
If any are willing, you need to install `groff' and possibly `less' from the GNUWin32 project <http://gnuwin32.sf.net>. The new behaviour of perldoc is: * Defaults to -t as before. * If -n is specified it will override the default. You can set the PERLDOC environment variable like: set PERLDOC=-n "groff.exe -Tascii" With PERLDOC set as above you can use perldoc like normal but pages will appear formated instead of plain text. If you specify any of (-t|-u|-m|-l) on the command line, it will override the PERLDOC -n setting. The output of ``diff -u perldoc.bat.orig perldoc.bat'' follows: Thanks, Randy W. Sims --- perldoc.bat.orig 2002-07-02 20:06:42.000000000 -0400 +++ perldoc.bat 2002-07-24 22:32:50.000000000 -0400 @@ -83,7 +83,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 @@ -145,8 +145,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"; @@ -160,9 +158,11 @@ || $Is_Dos || !($ENV{TERM} && $ENV{TERM} !~ /dumb|emacs|none|unknown/i)) { - $opt_t = 1 unless $opts; + $opt_t = 1 unless ($opts || $opt_n); } +$opt_n = "nroff" if !$opt_n; + if ($opt_t) { require Pod::Text; import Pod::Text; } my @pages; @@ -345,6 +345,7 @@ close OUT or die "can't close $tmp: $!"; } elsif (not $opt_u) { + $file =~ s/\\/\//g if $Is_MSWin32; my $cmd = catfile($bindir, 'pod2man') . " --lax $file | $opt_n -man"; $cmd .= " | col -x" if $^O =~ /hpux/; my $rslt = `$cmd`; _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
