diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 3 | ||||
| -rw-r--r-- | perl-install/fs/dmraid.pm | 20 | ||||
| -rw-r--r-- | perl-install/fsedit.pm | 3 | ||||
| -rwxr-xr-x | perl-install/standalone/bootloader-config | 1 |
4 files changed, 27 insertions, 0 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index d2e210322..d7b43d741 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,6 @@ +- bootloader-config (and other tools): handle /dev/mapper/xxx1 instead of + /dev/mapper/xxxp1 (#44182) + Version 11.62 - 1 October 2008 - fix dithering regression (introduced on 2008-09-29) diff --git a/perl-install/fs/dmraid.pm b/perl-install/fs/dmraid.pm index 7f9e0fbce..fa06e05e9 100644 --- a/perl-install/fs/dmraid.pm +++ b/perl-install/fs/dmraid.pm @@ -112,6 +112,26 @@ sub vgs() { } _sets(); } +# the goal is to handle migration from /dev/mapper/xxx1 to /dev/mapper/xxxp1, +# as used by initrd/nash. +# dmraid has been patched to follow xxxp1 device names. +# so until the box has rebooted on new initrd/dmraid, we must cope with /dev/mapper/xxx1 device names +# (cf #44182) +sub migrate_device_names { + my ($vg) = @_; + + my $dev_name = basename($vg->{device}); + foreach (all('/dev/mapper')) { + my ($nb) = /^\Q$dev_name\E(\d+)$/ or next; + my $new = $dev_name . 'p' . $nb; + if (! -e "/dev/mapper/$new") { + log::l("migrating to $new, creating a compat symlink $_"); + rename "/dev/mapper/$_", "/dev/mapper/$new"; + symlink $new, "/dev/mapper/$_"; + } + } +} + if ($ENV{DRAKX_DEBUG_DMRAID}) { eval(<<'EOF'); my %debug_data = ( diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index bd4831b6b..17ed0647b 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -139,6 +139,9 @@ sub handle_dmraid { return; }; } + if (!$::isInstall) { + fs::dmraid::migrate_device_names($_) foreach @vgs; + } log::l("using dmraid on " . join(' ', map { $_->{device} } @vgs)); my @used_hds = map { diff --git a/perl-install/standalone/bootloader-config b/perl-install/standalone/bootloader-config index e070c37ea..35c117983 100755 --- a/perl-install/standalone/bootloader-config +++ b/perl-install/standalone/bootloader-config @@ -285,6 +285,7 @@ sub _migrate_to_uuids__fstab() { or log::l("migrate_to_uuids: no UUID for $part->{device}, can not migrate it"), next; $part->{prefer_device_UUID} = 1; $part->{prefer_device} = 0; + delete $part->{device_alias} if $part->{device_alias} && $part->{device_alias} =~ m!\bmapper/!; # see fs::dmraid::migrate_device_names() for more log::l("migrate_to_uuids: migrating fstab $part->{device} entry"); $fstab_migrated = 1; |