summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/format.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm
index 564180a0f..c331c398a 100644
--- a/perl-install/fs/format.pm
+++ b/perl-install/fs/format.pm
@@ -194,8 +194,10 @@ sub part_raw {
delete $part->{device_LABEL_changed};
# Preserve UUID on fs where we couldn't enforce it while formatting
- (undef, $cmd) = @{$preserve_UUID{$fs_type}};
- run_program::raw({}, $cmd, '-U', devices::make($dev)) if $cmd;
+ if (my $uuid_cmd = $preserve_UUID{$fs_type}) {
+ (undef, $cmd) = @$uuid_cmd;
+ run_program::raw({}, $cmd, '-U', devices::make($dev)) if $cmd;
+ }
if (member($fs_type, qw(ext3 ext4))) {
disable_forced_fsck($dev);