summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index d9f9c1bea..15a918300 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -28,10 +28,10 @@ sub description {
sprintf "%s%s (%s%s%s%s)",
$hd->{device},
$win && " [$win:]",
- formatXiB($hd->{totalsectors} || $hd->{size}, 512),
- $hd->{info} && ", $hd->{info}",
- $hd->{mntpoint} && ", " . $hd->{mntpoint},
- $hd->{fs_type} && ", $hd->{fs_type}";
+ join(', ',
+ grep { $_ }
+ formatXiB($hd->{totalsectors} || $hd->{size}, 512),
+ $hd->{info}, $hd->{mntpoint}, $hd->{fs_type});
}
sub isPrimary {