use warnings;
use strict;
-our $VERSION = '0.42'; # VERSION
+our $VERSION = '0.50'; # VERSION
use parent 'App::Codeowners::Formatter';
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}$/) {
=head1 VERSION
-version 0.42
+version 0.50
=head1 DESCRIPTION
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2019 by Charles McGarvey.
+This software is copyright (c) 2021 by Charles McGarvey.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.