diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-24 05:18:06 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-24 05:18:06 +0000 |
| commit | d49321e7b7c3f90e1fb44f947dddd8517579dd60 (patch) | |
| tree | 86324332acca64882e31429710fed88e0fc95de3 /utils | |
| parent | 288ec9e31566cfd8e9a63e1dd3d7e670d6e519b8 (diff) | |
| download | perl-d49321e7b7c3f90e1fb44f947dddd8517579dd60.tar.gz | |
make -t mode the default on emacs/dumb terminals
p4raw-id: //depot/perl@3456
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perldoc.PL | 5 |
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 } |