summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mandriva.org>2010-02-05 13:29:12 +0000
committerPascal Terjan <pterjan@mandriva.org>2010-02-05 13:29:12 +0000
commit0f58e6576e982f11a429fc6b8b5110c7c0a7e2f8 (patch)
tree8bd9cd4c0b66cbb1946ba4c9377ded81ce5b40ab /perl-install
parentc7bae412b06c9c9b6b9a66395720088128a61154 (diff)
downloaddrakx-0f58e6576e982f11a429fc6b8b5110c7c0a7e2f8.tar
drakx-0f58e6576e982f11a429fc6b8b5110c7c0a7e2f8.tar.gz
drakx-0f58e6576e982f11a429fc6b8b5110c7c0a7e2f8.tar.bz2
drakx-0f58e6576e982f11a429fc6b8b5110c7c0a7e2f8.tar.xz
drakx-0f58e6576e982f11a429fc6b8b5110c7c0a7e2f8.zip
release 12.77.5 (ter)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/partitioning_wizard.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index d95f0a63b..666b66092 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -511,7 +511,8 @@ sub main {
my $combobox = Gtk2::ComboBox->new_text;
foreach (@kinds) {
- my $info = $_->{val}{info} || $_->{val}{name};
+ my $info = $_->{val}{info} || $_->{val}{device};
+ $info =~ s|^(?:.*/)?(.{16}).*|$1|;
$info .= " (" . formatXiB($_->{val}{totalsectors}, 512) . ")" if $_->{val}{totalsectors};
$combobox->append_text($info);
}