From 839024ea72b1828ceed72316f661cf3cbfad0f7d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
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/devices.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/devices.pm')

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) {
-- 
cgit v1.2.1