From f75720255790f27d6e75982663250c0321b07b87 Mon Sep 17 00:00:00 2001 From: Banana Date: Thu, 16 Feb 2012 10:25:38 +0100 Subject: [PATCH] code cleanup --- lib/Insipid/Stats.pm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lib/Insipid/Stats.pm b/lib/Insipid/Stats.pm index be048e1..be6ba95 100644 --- a/lib/Insipid/Stats.pm +++ b/lib/Insipid/Stats.pm @@ -63,13 +63,11 @@ sub groupByDomain { if($sth->rows ne 0) { while(@row = $sth->fetchrow_array()) { - #print $row['url']."
"; my $uri = URI->new($row['url']); - #print $uri->host."
"; + if($domains{$uri->host}) { $domains{$uri->host}++; - } - else { + } else { $domains{$uri->host} = 1; } } -- 2.39.5