summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps.pm6
-rw-r--r--perl-install/modules.pm5
2 files changed, 3 insertions, 8 deletions
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;
}