From 0f58e6576e982f11a429fc6b8b5110c7c0a7e2f8 Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Fri, 5 Feb 2010 13:29:12 +0000 Subject: release 12.77.5 (ter) --- perl-install/fs/partitioning_wizard.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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); } -- cgit v1.2.1