summaryrefslogtreecommitdiffstats
path: root/perl-install/fsedit.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/fsedit.pm')
-rw-r--r--perl-install/fsedit.pm7
1 files changed, 2 insertions, 5 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index cbe94f5c1..108fadde1 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -244,11 +244,8 @@ Do you agree to lose all the partitions?
}
foreach (@parts) {
- my $label =
- member($_->{fs_type}, qw(ext2 ext3)) ?
- c::get_ext2_label(devices::make($_->{device})) :
- '';
- $_->{device_LABEL} = $label if $label;
+ my $label = run_program::get_stdout('vol_id', '-l', devices::make($_->{device}));
+ $_->{device_LABEL} = chomp_($label) if $label;
}
if ($hd->{usb_media_type}) {