summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-26 17:31:27 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-26 17:31:27 +0000
commit950118e80153c25bb513903b4d2860b111f5ea4a (patch)
treef7912267e449172d306faa9ea5b7f290179f87ec /perl-install
parent82602733f20b557a7a6d64570bf4b698e803e0ea (diff)
downloaddrakx-950118e80153c25bb513903b4d2860b111f5ea4a.tar
drakx-950118e80153c25bb513903b4d2860b111f5ea4a.tar.gz
drakx-950118e80153c25bb513903b4d2860b111f5ea4a.tar.bz2
drakx-950118e80153c25bb513903b4d2860b111f5ea4a.tar.xz
drakx-950118e80153c25bb513903b4d2860b111f5ea4a.zip
nicer description() (esp. when the size is 0)
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 {