From 1e3867fdfe06f2482d0b8a5db8439553a72e665a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 28 Nov 2001 18:08:48 +0000
Subject: (read_conf): fix "convert old scsi_hostadapter's to new probeall"

---
 perl-install/modules.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1