From 348c5f4eb2015dd237187cdb8fe71a98c16cf128 Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Thu, 22 Jan 2009 10:37:15 +0000 Subject: don't rewrite label when it did not change (#47186) --- perl-install/fs/format.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install/fs/format.pm') diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm index d621b6067..4a2b31405 100644 --- a/perl-install/fs/format.pm +++ b/perl-install/fs/format.pm @@ -108,7 +108,7 @@ sub part { sub write_label { my ($part) = @_; - $part->{device_LABEL} or return; + $part->{device_LABEL_changed} or return; $part->{isNotFormatted} and return; if ($part->{encrypt_key}) { @@ -124,6 +124,7 @@ sub write_label { @args = ($cmd, devices::make($dev), $part->{device_LABEL}); } run_program::raw({ timeout => 'never' }, @args) or die N("setting label on %s failed", $dev); + delete $part->{device_LABEL_changed}; } sub part_raw { @@ -222,6 +223,7 @@ sub clean_label { log::l("dropping LABEL=$part->{device_LABEL} since we don't know how to set labels for fs_type $fs_type"); delete $part->{device_LABEL}; delete $part->{prefer_device_LABEL}; + delete $part->{device_LABEL_changed}; } } } -- cgit v1.2.1