diff options
Diffstat (limited to 'ext/re/re.pm')
| -rw-r--r-- | ext/re/re.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/re/re.pm b/ext/re/re.pm index 1c225e3a7c..09f52d6086 100644 --- a/ext/re/re.pm +++ b/ext/re/re.pm @@ -86,9 +86,10 @@ sub setcolor { my $terminal = Tgetent Term::Cap ({OSPEED => 9600}); # Avoid warning. my $props = $ENV{PERL_RE_TC} || 'md,me,so,se,us,ue'; my @props = split /,/, $props; + my $colors = join "\t", map {$terminal->Tputs($_,1)} @props; - - $ENV{PERL_RE_COLORS} = join "\t", map {$terminal->Tputs($_,1)} @props; + $colors =~ s/\0//g; + $ENV{PERL_RE_COLORS} = $colors; }; } |