use App::Codeowners::Util qw(stringf zip);
use Color::ANSI::Util 0.03 qw(ansifg);
-use Encode qw(encode);
sub stream {
my $self = shift;
);
my $text = stringf($self->format, %info);
- print { $self->handle } encode('UTF-8', $text), "\n";
+ print { $self->handle } $text, "\n";
}
sub _expand_filter_args {
my $text = shift;
my $rgb = shift or return $text;
- return $text if $ENV{NO_COLOR};
+ return $text if $ENV{NO_COLOR} || (defined $ENV{COLOR_DEPTH} && !$ENV{COLOR_DEPTH});
$rgb =~ s/^(.)(.)(.)$/$1$1$2$2$3$3/;
if ($rgb !~ m/^[0-9a-fA-F]{6}$/) {