From 839024ea72b1828ceed72316f661cf3cbfad0f7d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 27 Mar 2015 10:26:58 -0400 Subject: fix creating RAID devices (mga#15400) regression fixed by reverting a line from commit 329701ba075af74ae6d7f857f62c35c942c24486 --- perl-install/NEWS | 1 + perl-install/devices.pm | 1 + perl-install/install/NEWS | 2 ++ 3 files changed, 4 insertions(+) diff --git a/perl-install/NEWS b/perl-install/NEWS index 7c2b16dbd..fefe2106a 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,4 +1,5 @@ - diskdrake (GPT): + o fix creating RAID devices (mga#15400) o fix "I cannot read the partition table of device XXX, it is too corrupted" o fix retrieving LVM/RAID/swap partition type o fix tagging lvm/raid as "linux filesystem" diff --git a/perl-install/devices.pm b/perl-install/devices.pm index a4c9a7f62..1dede1cc1 100644 --- a/perl-install/devices.pm +++ b/perl-install/devices.pm @@ -80,6 +80,7 @@ sub entry { $minor = 16 * $3 + ($4 || 0); } elsif (my ($prefix, $nb) = /(.*?)(\d+)$/) { my $f = ${{ + "md" => sub { c::S_IFBLK(), 9, 0 }, "ubd/" => sub { c::S_IFBLK(), 98, 0 }, }}{$prefix}; if ($f) { diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 9dd92dd37..ce79d7388 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,4 +1,6 @@ - GPT partitionning: + o fix creating RAID devices (mga#15400) + (regression from 16.33) o fix "I cannot read the partition table of device XXX, it is too corrupted" o fix retrieving LVM/RAID/swap partition type o fix tagging lvm/raid as "linux filesystem" -- cgit v1.2.1