From be2312728d8d50e15aff07f0716e48cb1c14ea02 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 2 Oct 2001 10:58:31 +0000
Subject: ataraid devices support

---
 perl-install/devices.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 80f749921..598d551a4 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -88,6 +88,11 @@ sub entry {
 	$type = c::S_IFBLK();
 	$major = ($1 eq 'ida' ? 72 : 104) + $2;
 	$minor = 16 * $3 + ($4 || 0);
+    } elsif (m,(ataraid)/d(\d+)(?:p(\d+))?,) {
+	# ATA raid "ataraid/d0{p1}"
+	$type = c::S_IFBLK();
+	$major = 114;
+	$minor = 16 * $1 + ($2 || 0);
     } elsif (/(.*)(\d+)$/) {
 	    ($type, $major, $minor) =
 	     @{ ${{"fd"          => [ c::S_IFBLK(), 2,  0 ],
-- 
cgit v1.2.1