From 9c87798ef0c93e820802b0da58c708f7025add45 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 21 Sep 2007 16:20:28 +0000
Subject: formatXiB: make it explicit that we don't support float numbers
 (otherwise formatXiB(-0.1) would need to be supported whereas it was broken)

---
 perl-install/common.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 452e9ab37..a249f72b7 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -132,7 +132,7 @@ sub formatXiB {
     my ($newnb, $o_newbase) = @_;
     my $newbase = $o_newbase || 1;
     my $sign = $newnb < 0 ? -1 : 1;
-    $newnb = abs($newnb);
+    $newnb = abs(int($newnb));
     my ($nb, $base);
     my $decr = sub { 
 	($nb, $base) = ($newnb, $newbase);
-- 
cgit v1.2.1