From 1911b93aecc2910912c2dd503a23cd8e6b61a0b8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 21 Sep 2007 16:03:35 +0000
Subject: make formatXiB() handle negative numbers (for rpmdrake)

---
 perl-install/common.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/common.pm')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index d48eca789..cb040772a 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -134,19 +134,19 @@ sub formatXiB {
     my ($nb, $base);
     my $decr = sub { 
 	($nb, $base) = ($newnb, $newbase);
-	$base >= 1024 ? ($newbase = $base / 1024) : ($newnb = $nb / 1024);
+	abs($base) >= 1024 ? ($newbase = $base / 1024) : ($newnb = $nb / 1024);
     };
     my $suffix;
     foreach (N("B"), N("KB"), N("MB"), N("GB"), N("TB")) {
 	$decr->(); 
-	if ($newnb < 1 && $newnb * $newbase < 1) {
+	if (abs($newnb) < 1 && abs($newnb * $newbase) < 1) {
 	    $suffix = $_;
 	    last;
 	}
     }
     my $v = $nb * $base;
     my $s = $v < 10 && int(10 * $v - 10 * int($v));
-    int($v) . ($s ? ".$s" : '') . ($suffix || N("TB"));
+    int($v) . ($s ? "." . abs($s) : '') . ($suffix || N("TB"));
 }
 
 sub formatTime {
-- 
cgit v1.2.1