summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS3
-rw-r--r--perl-install/fs/dmraid.pm20
-rw-r--r--perl-install/fsedit.pm3
-rwxr-xr-xperl-install/standalone/bootloader-config1
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;