diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 06:56:40 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 06:56:40 +0000 |
| commit | 8d300b32a709a689cc4faaa10b28cbb610d1e846 (patch) | |
| tree | 24646bc1c0064c96a81756f964bc76852a21cbdd /ext | |
| parent | f8b5b99cdebd8b6c68cad87fddf11ad38bd6bcf9 (diff) | |
| download | perl-8d300b32a709a689cc4faaa10b28cbb610d1e846.tar.gz | |
re-introduce change#1703
p4raw-link: @1703 on //depot/maint-5.005/perl: af819cba4f44bf2074ec4808e403dedf8c3ce2b2
p4raw-id: //depot/perl@1825
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 { |