From dbee68a5c57b36487289cd2f837420e8f4d488f8 Mon Sep 17 00:00:00 2001
From: Brian Hann <emailc0bra@gmail.com>
Date: Thu, 9 Feb 2012 18:05:43 -0600
Subject: [PATCH] Fixed ENV debug option, removed stroke from cloud()

---
 lib/Image/WordCloud.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Image/WordCloud.pm b/lib/Image/WordCloud.pm
index e12c075..61ad350 100644
--- a/lib/Image/WordCloud.pm
+++ b/lib/Image/WordCloud.pm
@@ -20,7 +20,7 @@ use Math::PlanePath::ArchimedeanChords;
 
 our $VERSION = '0.02_01';
 
-$ENV{IWC_DEBUG} = 0 if ! defined $ENV{IWC_DEBUG};
+$ENV{IWC_DEBUG} = 0 if ! defined $ENV{IWC_DEBUG} || ! $ENV{IWC_DEBUG};
 
 =head1 NAME
 
@@ -608,7 +608,7 @@ sub cloud {
 		}
 		
 		my @bounding = $text->draw($x, $y, 0);
-		$self->_stroke_bbox($gd, undef, @bounding);
+		#$self->_stroke_bbox($gd, undef, @bounding);
 		
 		my @rect = ($bounding[6], $bounding[7], $bounding[2] - $bounding[6], $bounding[3] - $bounding[7]);
 		push(@bboxes, \@rect);