if ((my $opts = do{ local $^W; $opt_t + $opt_u + $opt_m + $opt_l }) > 1) {
usage("only one of -t, -u, -m or -l")
}
-elsif ($Is_MSWin32 || $Is_Dos) {
+elsif ($Is_MSWin32
+ || $Is_Dos
+ || !(exists $ENV{TERM} && $ENV{TERM} !~ /dumb|emacs|none|unknown/i))
+{
$opt_t = 1 unless $opts
}
my $err;
if ($opt_t) {
- open(TMP,">>$tmp")
- or warn("Can't open $tmp: $!"), return;
- Pod::Text::pod2text($file,*TMP);
- close TMP;
+ open(OUT,">>$tmp") or warn("Can't open $tmp: $!"), return;
+ Pod::Text->new()->parse_from_file($file,\*OUT);
+ close OUT;
}
elsif (not $opt_u) {
my $cmd = "pod2man --lax $file | nroff -man";