From f9d52c5dd5f6191d3e4956ee040d0815f651cd1c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 5 Mar 2013 18:37:04 +0000 Subject: kill everything regarding legacy ide-scsi (removed on january 2009, in 2.6.29) --- perl-install/any.pm | 6 ------ perl-install/detect_devices.pm | 1 - 2 files changed, 7 deletions(-) (limited to 'perl-install') diff --git a/perl-install/any.pm b/perl-install/any.pm index 6fc75dc15..22a79e9fb 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -144,12 +144,6 @@ sub setupBootloaderBefore { $bootloader->{message_text} = delete $bootloader->{message}; } - #- remove previous ide-scsi lines - bootloader::modify_append($bootloader, sub { - my ($_simple, $dict) = @_; - @$dict = grep { $_->[1] ne 'ide-scsi' } @$dict; - }); - if (cat_("/proc/cmdline") =~ /mem=nopentium/) { bootloader::set_append_with_key($bootloader, mem => 'nopentium'); } diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 6d4090d5f..54d0f7bec 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -312,7 +312,6 @@ sub getIDE() { #- Great. 2.2 kernel, things are much easier and less error prone. foreach my $d (sort @{[glob_('/proc/ide/hd*')]}) { - cat_("$d/driver") =~ /ide-scsi/ and next; #- already appears in /proc/scsi/scsi my $t = chomp_(cat_("$d/media")); my $type = ${{ disk => 'hd', cdrom => 'cdrom', tape => 'tape', floppy => 'fd' }}{$t} or next; my $info = chomp_(cat_("$d/model")) || "(none)"; -- cgit v1.2.1