summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-09-21 16:20:28 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-09-21 16:20:28 +0000
commit9c87798ef0c93e820802b0da58c708f7025add45 (patch)
tree96226b86913108984698571629551cc82e8228bc /perl-install/common.pm
parentc5a6160798f51500212e5325250265d3a511e118 (diff)
downloaddrakx-backup-do-not-use-9c87798ef0c93e820802b0da58c708f7025add45.tar
drakx-backup-do-not-use-9c87798ef0c93e820802b0da58c708f7025add45.tar.gz
drakx-backup-do-not-use-9c87798ef0c93e820802b0da58c708f7025add45.tar.bz2
drakx-backup-do-not-use-9c87798ef0c93e820802b0da58c708f7025add45.tar.xz
drakx-backup-do-not-use-9c87798ef0c93e820802b0da58c708f7025add45.zip
formatXiB: make it explicit that we don't support float numbers
(otherwise formatXiB(-0.1) would need to be supported whereas it was broken)
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm2
1 files changed, 1 insertions, 1 deletions
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);