From 237a0e13c1e5c392ae954e15b8dc5e6274d68c6b Mon Sep 17 00:00:00 2001
From: unlisted <dev@unlisted.org>
Date: Mon, 7 May 2012 17:32:03 -0400
Subject: [PATCH] clean up comments

---
 lib/DDG/Goodie/Frequency.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/lib/DDG/Goodie/Frequency.pm b/lib/DDG/Goodie/Frequency.pm
index 78f43016a..c41263fa3 100644
--- a/lib/DDG/Goodie/Frequency.pm
+++ b/lib/DDG/Goodie/Frequency.pm
@@ -9,9 +9,8 @@ handle remainder => sub {
     if ($_)
     {
 	my %freq;
-	my %perc;
-	my @chars = split //, "\L$_";
 	my $count = 0;
+	my @chars = split //, "\L$_";
 
 	foreach (@chars)
 	{
@@ -25,8 +24,6 @@ handle remainder => sub {
 	my @out;
 	foreach my $key (keys %freq)
 	{
-	    #$perc{$key} = $freq{$key} / $count;
-	    #my $rec = join ":", $key, $freq{$key};
 	    push @out, join " ", (join ":", $key, $freq{$key}),  ($freq{$key} / $count);
 	};