From 481e06bf18d647c5b4679b4dd0f81209854a4ae0 Mon Sep 17 00:00:00 2001
From: Tatsuhiko Miyagawa <miyagawa@bulknews.net>
Date: Mon, 23 Feb 2009 00:55:05 -0800
Subject: [PATCH] Term::ANSIColor is a core module since 5.6. Removed the
 debugging +1

---
 tools/refresh | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/tools/refresh b/tools/refresh
index cfa02afd..92d98409 100755
--- a/tools/refresh
+++ b/tools/refresh
@@ -4,11 +4,7 @@ use warnings;
 use LWP::UserAgent;
 use HTTP::Request::Common;
 use JSON::XS;
-
-eval { require Term::ANSIColor };
-my $color = $@
-    ? sub { shift; @_ } # do nothing
-    : sub { Term::ANSIColor::colored([ shift ], @_) };
+use Term::ANSIColor;
 
 my $ua = LWP::UserAgent->new;
 $ua->default_header('X-Remedie-Client' => 'CLI');
@@ -32,9 +28,9 @@ my @channels = @ARGV ? get_channels(@ARGV) : all_channels();
 
 for my $channel (@channels) {
     my $data = $api_call->("post", "/channel/refresh", { id => $channel->{id} });
-    my $new = $data->{channel}{unwatched_count} - $channel->{unwatched_count} + 1;
-    warn sprintf "%d: %s updated %s\n",
-        $channel->{id}, $data->{channel}{name}, ($new ? $color->('red', "($new)") : "");
+    my $new = $data->{channel}{unwatched_count} - $channel->{unwatched_count};
+    printf "%d: %s updated %s\n",
+        $channel->{id}, $data->{channel}{name}, ($new ? colored(['red'], "($new)") : "");
 }
 
 sub get_channels {