| CC: | Ask Bjørn Hansen <ask [...] develooper.com> |
| Subject: | [PATCH] fix HTML::TagCloud to avoid BIG TAGS when they're all have the same number |
| Date: | Thu, 28 Aug 2008 01:17:58 -0700 |
| To: | bug-HTML-TagCloud [...] rt.cpan.org |
| From: | Ask Bjørn Hansen <ask [...] develooper.com> |
---
lib/perl5/HTML/TagCloud.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lib/perl5/HTML/TagCloud.pm b/lib/perl5/HTML/TagCloud.pm
index 5113982..7e0714f 100644
--- a/lib/perl5/HTML/TagCloud.pm
+++ b/lib/perl5/HTML/TagCloud.pm
@@ -52,7 +52,7 @@ sub tags {
# special case all tags having the same count
if ($max - $min == 0) {
- $min = $min - $self->{levels};
+ $min = $min - $self->{levels} / 4;
$factor = 1;
} else {
$factor = $self->{levels} / ($max - $min);
--
1.6.0