This is an automated email from the git hooks/post-receive script. kanashiro-guest pushed a commit to branch master in repository carton.
commit 8f93985e087f726c7314a641b7bce409f380a6f3 Author: Tatsuhiko Miyagawa <miyag...@bulknews.net> Date: Sat Jun 1 13:22:11 2013 +0900 remove color output --- lib/Carton/CLI.pm | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/lib/Carton/CLI.pm b/lib/Carton/CLI.pm index e89f67b..301b461 100644 --- a/lib/Carton/CLI.pm +++ b/lib/Carton/CLI.pm @@ -5,7 +5,6 @@ use warnings; use Cwd; use Config; use Getopt::Long; -use Term::ANSIColor qw(colored); use Carton; use Carton::Lock; @@ -17,17 +16,9 @@ use constant { SUCCESS => 0, INFO => 1, WARN => 2, ERROR => 3 }; our $UseSystem = 0; # 1 for unit testing -our $Colors = { - SUCCESS, => 'green', - WARN, => 'yellow', - INFO, => 'cyan', - ERROR, => 'red', -}; - sub new { my $class = shift; bless { - color => 1, verbose => 0, }, $class; } @@ -56,7 +47,6 @@ sub run { $p->getoptions( "h|help" => sub { unshift @commands, 'help' }, "v|version" => sub { unshift @commands, 'version' }, - "color!" => \$self->{color}, "verbose!" => \$self->{verbose}, ); @@ -123,7 +113,6 @@ sub printf { sub print { my($self, $msg, $type) = @_; - $msg = colored $msg, $Colors->{$type} if defined $type && $self->{color}; my $fh = $type && $type >= WARN ? *STDERR : *STDOUT; print {$fh} $msg; } -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits