diff options
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/re/re.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/ext/re/re.pm b/ext/re/re.pm index 1c225e3a7c..7cea77dd42 100644 --- a/ext/re/re.pm +++ b/ext/re/re.pm @@ -84,12 +84,16 @@ sub setcolor { require Term::Cap; my $terminal = Tgetent Term::Cap ({OSPEED => 9600}); # Avoid warning. - my $props = $ENV{PERL_RE_TC} || 'md,me,so,se,us,ue'; + my $props = $ENV{PERL_RE_TC} || 'md,me,so,se'; # can use us/ue later my @props = split /,/, $props; - $ENV{PERL_RE_COLORS} = join "\t", map {$terminal->Tputs($_,1)} @props; + $ENV{TERMCAP_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 { |