summaryrefslogtreecommitdiffstats
path: root/perl-install/fs/format.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/fs/format.pm')
-rw-r--r--perl-install/fs/format.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm
index 1b7b977cd..ce4d7e73a 100644
--- a/perl-install/fs/format.pm
+++ b/perl-install/fs/format.pm
@@ -93,6 +93,14 @@ sub part_raw {
if ($fs_type eq 'ext3') {
disable_forced_fsck($dev);
}
+ if ($part->{device_LABEL}) {
+ if (member($fs_type, qw(ext2 ext3))) {
+ run_program::run("tune2fs", "-L", $part->{device_LABEL}, devices::make($dev));
+ } else {
+ log::l("dropping LABEL=$part->{device_LABEL} since we don't know how to set labels for fs_type $part->{fs_type}");
+ delete $part->{device_LABEL}, $part->{prefer_device_LABEL};
+ }
+ }
set_isFormatted($part, 1);
}