diff options
| -rw-r--r-- | perl-install/modules.pm | 8 |
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; |