diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-07-21 19:58:53 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-02 06:26:57 +0000 |
| commit | af819cba4f44bf2074ec4808e403dedf8c3ce2b2 (patch) | |
| tree | 242fa243bf24d2cb1e544f0da4275b64fd508f2c /ext | |
| parent | aab1f907125f90712decb35f2a57d7c7c35d30a2 (diff) | |
| download | perl-af819cba4f44bf2074ec4808e403dedf8c3ce2b2.tar.gz | |
better RE colors
Message-Id: <199807220358.XAA19811@monk.mps.ohio-state.edu>
p4raw-id: //depot/maint-5.005/perl@1703
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/re/re.pm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/ext/re/re.pm b/ext/re/re.pm index 7cea77dd42..1c225e3a7c 100644 --- a/ext/re/re.pm +++ b/ext/re/re.pm @@ -84,16 +84,12 @@ sub setcolor { require Term::Cap; my $terminal = Tgetent Term::Cap ({OSPEED => 9600}); # Avoid warning. - my $props = $ENV{PERL_RE_TC} || 'md,me,so,se'; # can use us/ue later + my $props = $ENV{PERL_RE_TC} || 'md,me,so,se,us,ue'; my @props = split /,/, $props; - $ENV{TERMCAP_COLORS} = join "\t", map {$terminal->Tputs($_,1)} @props; + $ENV{PERL_RE_COLORS} = join "\t", map {$terminal->Tputs($_,1)} @props; }; - - not defined $ENV{TERMCAP_COLORS} or ($ENV{TERMCAP_COLORS} =~ tr/\t/\t/) >= 4 - or not defined $ENV{PERL_RE_TC} - or die "Not enough fields in \$ENV{PERL_RE_TC}=`$ENV{PERL_RE_TC}'"; } sub bits { |