summaryrefslogtreecommitdiff
path: root/utils/perldoc.PL
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-05-24 05:18:06 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-05-24 05:18:06 +0000
commitd49321e7b7c3f90e1fb44f947dddd8517579dd60 (patch)
tree86324332acca64882e31429710fed88e0fc95de3 /utils/perldoc.PL
parent288ec9e31566cfd8e9a63e1dd3d7e670d6e519b8 (diff)
downloadperl-d49321e7b7c3f90e1fb44f947dddd8517579dd60.tar.gz
make -t mode the default on emacs/dumb terminals
p4raw-id: //depot/perl@3456
Diffstat (limited to 'utils/perldoc.PL')
-rw-r--r--utils/perldoc.PL5
1 files changed, 4 insertions, 1 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index bd23350482..8c1c6968d1 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -142,7 +142,10 @@ if ($opt_X) {
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
}