summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-11-28 18:08:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-11-28 18:08:48 +0000
commit1e3867fdfe06f2482d0b8a5db8439553a72e665a (patch)
tree6be6df05c38f1c8f69254f5a48cfa0ca0f28b568 /perl-install
parentc960270cfe2216f7c0808f049c1609255ad9398d (diff)
downloaddrakx-1e3867fdfe06f2482d0b8a5db8439553a72e665a.tar
drakx-1e3867fdfe06f2482d0b8a5db8439553a72e665a.tar.gz
drakx-1e3867fdfe06f2482d0b8a5db8439553a72e665a.tar.bz2
drakx-1e3867fdfe06f2482d0b8a5db8439553a72e665a.tar.xz
drakx-1e3867fdfe06f2482d0b8a5db8439553a72e665a.zip
(read_conf): fix "convert old scsi_hostadapter's to new probeall"
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/modules.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index f5c6db304..3f2e8c72c 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -664,9 +664,11 @@ sub read_conf {
}
}
#- convert old scsi_hostadapter's to new probeall
- while (my ($alias, $type) = each %c) {
- $alias =~ /^scsi_hostadapter/ && $type->{alias} or next;
- push @{$c{scsi_hostadapter}{probeall} ||= []}, delete $type->{alias};
+ my @old_scsi_hostadapters =
+ map { $_->[0] } sort { $a->[1] <=> $b->[1] }
+ map { if_(/^scsi_hostadapter(\d*)/ && $c{$_}{alias}, [ $_, $1 || 0 ]) } keys %c;
+ foreach my $alias (@old_scsi_hostadapters) {
+ push @{$c{scsi_hostadapter}{probeall} ||= []}, delete $c{$alias}{alias};
}
\%c;