[carton] 235/472: remove color output

[Lucas Kanashiro]

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 <miyagawa at 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