summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2009-10-28 18:17:27 +0000
committerOlivier Blin <oblin@mandriva.com>2009-10-28 18:17:27 +0000
commit8333ae40534dd25c99d345b1f2f04b3e5e513731 (patch)
treebe8858fb665ee959e4fde2533905518a75fb0c9c /perl-install
parent2ef3c5b20e88c68064ea993241ac6a4f2d9fa959 (diff)
downloaddrakx-backup-do-not-use-8333ae40534dd25c99d345b1f2f04b3e5e513731.tar
drakx-backup-do-not-use-8333ae40534dd25c99d345b1f2f04b3e5e513731.tar.gz
drakx-backup-do-not-use-8333ae40534dd25c99d345b1f2f04b3e5e513731.tar.bz2
drakx-backup-do-not-use-8333ae40534dd25c99d345b1f2f04b3e5e513731.tar.xz
drakx-backup-do-not-use-8333ae40534dd25c99d345b1f2f04b3e5e513731.zip
make sure sizes and widths are int
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/partitioning_wizard.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index b1c1dba57..e9c35c570 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -149,7 +149,7 @@ sub partitionWizardSolutions {
my $suggested_size = max(
$part->{min_win} + 1*MB(1024),
min(
- $part->{size} - 0.1 * ($part->{size} - $part->{min_win}),
+ $part->{size} - int(0.1 * ($part->{size} - $part->{min_win})),
$part->{size} - 6*MB(1024),
),
);
@@ -310,7 +310,7 @@ sub create_display_box {
my $part_info = Gtk2::Label->new($entry->{device_LABEL});
my @colorized_fs_types = qw(ext2 ext3 ext4 xfs swap vfat ntfs ntfs-3g);
my $part_widget = Gtk2::EventBox->new;
- $entry->{width} = $entry->{size} * $initial_ratio + $minwidth;
+ $entry->{width} = int($entry->{size} * $initial_ratio) + $minwidth;
if ($last && $last->{device} eq $entry->{device}) {
#- entry is the last resizable partition