summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry.Vignaud <thierry.vignaud@gmail.com>2014-06-18 15:00:37 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-06-18 22:13:34 +0200
commit7d16840ea981e14d844b57510a7cbd2c551dd739 (patch)
treedcc5de1fbc296ce3686c16168050e15db8b9523e /perl-install
parent7a3f8148f986d116ac15ea4436bd4afe8ddd8e5d (diff)
downloaddrakx-7d16840ea981e14d844b57510a7cbd2c551dd739.tar
drakx-7d16840ea981e14d844b57510a7cbd2c551dd739.tar.gz
drakx-7d16840ea981e14d844b57510a7cbd2c551dd739.tar.bz2
drakx-7d16840ea981e14d844b57510a7cbd2c551dd739.tar.xz
drakx-7d16840ea981e14d844b57510a7cbd2c551dd739.zip
remove support for ataraid
was killed in kernel on 2002-08-16, obsolete since kernel-2.6... See https://git.kernel.org/cgit/linux/kernel/git/tglx/history.git/commit/?id=12105c896098faf822e882f3495fee485c2ebaa5
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm12
-rw-r--r--perl-install/devices.pm5
-rw-r--r--perl-install/partition_table.pm2
3 files changed, 2 insertions, 17 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index c88277691..687ab8b2f 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -74,7 +74,7 @@ sub get() {
#- 2. The first SCSI device if SCSI exists. Or
#- 3. The first RAID device if RAID exists.
- getIDE(), getSCSI(), getMmcBlk(), getXenBlk(), getVirtIO(), getDAC960(), getCompaqSmartArray(), getATARAID();
+ getIDE(), getSCSI(), getMmcBlk(), getXenBlk(), getVirtIO(), getDAC960(), getCompaqSmartArray();
}
sub hds() { grep { may_be_a_hd($_) } get() }
sub tapes() { grep { $_->{media_type} eq 'tape' } get() }
@@ -433,16 +433,6 @@ sub getDAC960() {
values %idi;
}
-sub getATARAID() {
- my %l;
- foreach (syslog()) {
- my ($device) = m|^\s*(ataraid/d\d+):| or next;
- $l{$device} = { info => 'ATARAID block device', media_type => 'hd', device => $device, bus => 'ataraid' };
- log::l("ATARAID: $device");
- }
- values %l;
-}
-
=item getXenBlk()
Returns a list of all Xen block devices (C</dev/xvd*>).
diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index f72efe8e6..19dcb6871 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -91,11 +91,6 @@ 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 (my ($prefix, $nb) = /(.*?)(\d+)$/) {
my $f = ${{"fd" => sub { c::S_IFBLK(), 2, 0 },
"hidbp-mse-" => sub { c::S_IFCHR(), 10, 32 },
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 79d108d3d..227417dd5 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -560,7 +560,7 @@ The only solution is to move your primary partitions to have the hole next to th
sub add {
my ($hd, $part, $b_primaryOrExtended, $b_forceNoAdjust) = @_;
- get_normal_parts($hd) >= ($hd->{device} =~ /^rd/ ? 7 : $hd->{device} =~ /^(ida|cciss|ataraid)/ ? 15 : 63) and cdie "maximum number of partitions handled by linux reached";
+ get_normal_parts($hd) >= ($hd->{device} =~ /^rd/ ? 7 : $hd->{device} =~ /^(ida|cciss)/ ? 15 : 63) and cdie "maximum number of partitions handled by linux reached";
set_isFormatted($part, 0);
put_in_hash($part, hd2minimal_part($hd));