From fbd335923be01d06f013eda6557448dc38a246fd Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 2 Jan 2000 22:43:43 +0000
Subject: no_comment

---
 perl-install/install_steps.pm | 6 ------
 perl-install/modules.pm       | 5 +++--
 2 files changed, 3 insertions(+), 8 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 9198279c3..64aeba2b5 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -183,12 +183,6 @@ sub choosePackages($$$$) {
 
 sub beforeInstallPackages {
     my ($o) = @_;
-
-    $o->{bootloader}{perImageAppend} .= " " . join(" ", grep { /^ide/ } split ' ', cat_("/proc/cmdline"));
-    if (my @l = detect_devices::getIDEBurners()) {
-	$o->{bootloader}{perImageAppend} .= " " . join(" ", map { "$_=ide-scsi" } @l);
-    }
-
     network::add2hosts("$o->{prefix}/etc/hosts", "localhost.localdomain", "127.0.0.1");
     require pkgs;
     pkgs::init_db($o->{prefix}, $o->{isUpgrade});
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 7bae980d5..84d2b630e 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -301,9 +301,10 @@ sub text2driver($) {
 }
 
 sub add_alias($$) { 
-    my ($alias, $name);
-    $conf{$_}{alias} && $conf{$_}{alias} eq $name and return foreach keys %conf;
+    my ($alias, $name) = @_;
+    /\Q$alias/ && $conf{$_}{alias} && $conf{$_}{alias} eq $name and return foreach keys %conf;
     $alias .= $scsi++ || '' if $alias eq 'scsi_hostadapter';
+    log::l("adding alias $alias to $name");
     $conf{$alias}{alias} ||= $name;
     1;
 }
-- 
cgit v1.2.1