From 2287b7b6a3d93901d526a6dcf244b5c9effae919 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 30 Sep 2008 16:51:28 +0000 Subject: - bootloader-config: o --action migrate-to-uuids: do not migrate non sdx/hdx to UUID (bootloader config) (it was done for fstab, but not for menu.lst) --- perl-install/standalone/bootloader-config | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone/bootloader-config') diff --git a/perl-install/standalone/bootloader-config b/perl-install/standalone/bootloader-config index 4a21bc7ac..590c96d3e 100755 --- a/perl-install/standalone/bootloader-config +++ b/perl-install/standalone/bootloader-config @@ -276,7 +276,7 @@ sub _migrate_to_uuids__fstab() { my $fstab_migrated; foreach my $part (@raw_fstab) { - devices::should_prefer_UUID($part->{device}) or next; + _should_prefer_UUID($part) or next; my $part_ = find { fs::get::is_same_hd($part, $_) } @$fstab or log::l("migrate_to_uuids: do not know $part->{device}, can not migrate it"), next; @@ -302,9 +302,15 @@ sub _migrate_dev_to_uuid { $dev && $dev =~ m!/dev/! or return; my $part = fs::get::device2part($dev, $fstab); + _should_prefer_UUID($part) or return; $part && $part->{device_UUID} && "UUID=$part->{device_UUID}"; } +sub _should_prefer_UUID { + my ($part) = @_; + devices::should_prefer_UUID($part->{device}); +} + # add UUID to swap v.2 in case the swap was created long ago when mkswap didn't do it by default sub _add_uuid_to_swap { my ($part) = @_; -- cgit v1.2.1