diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-05 02:29:46 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-05 02:29:46 +0000 |
| commit | afe2cf94ca69dfa43c28629844e3530526559af4 (patch) | |
| tree | eb53671829ee0a74bdc50cb8c4643eedade346d5 /ext | |
| parent | a696a92a8c17fd674222340fecaac0639e6ef16b (diff) | |
| download | perl-afe2cf94ca69dfa43c28629844e3530526559af4.tar.gz | |
back out change#1703 that break bincompat with PERL_OBJECT and
MULTIPLICITY
p4raw-link: @1703 on //depot/maint-5.005/perl: af819cba4f44bf2074ec4808e403dedf8c3ce2b2
p4raw-id: //depot/maint-5.005/perl@1735
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 { |