From 76a1ba5f056fbdce14054128faedb0512bfee2d0 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Tue, 17 May 2011 22:43:18 +0200
Subject: Begin work on App::Hashl tests

---
 lib/App/Hashl.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/App/Hashl.pm')

diff --git a/lib/App/Hashl.pm b/lib/App/Hashl.pm
index 3f9bfa7..58af4a6 100644
--- a/lib/App/Hashl.pm
+++ b/lib/App/Hashl.pm
@@ -51,7 +51,7 @@ sub si_size {
 	my ($self, $bytes) = @_;
 	my @post = (' ', qw(k M G T));
 
-	while ($bytes > 1024) {
+	while ($bytes >= 1024) {
 		$bytes /= 1024;
 		shift @post;
 	}
-- 
cgit v1.2.3