From 4bb674f1003f97776175b2b1fd08d55847131a9e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 16 Oct 2000 20:28:01 +0000
Subject: (cdroms): fix the setting of scdX for ide burners

---
 perl-install/detect_devices.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 250cf498f..1b8c60440 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -47,9 +47,10 @@ sub cdroms() {
 	require modules;
 	modules::add_alias('scsi_hostadapter', 'ide-scsi');
 	my $nb = 1 + max(-1, map { $_->{device} =~ /scd (\d+)/x } @l);
-	foreach (@l2) {
-	    log::l("IDEBurner: $_->{device}");
-	    $_->{device} = "scd" . $nb++;
+	foreach my $i (@l2) {	    
+	    log::l("IDEBurner: $i->{device}");
+	    my ($e) = grep { $_->{device} eq $i->{device} } @l;
+	    $e->{device} = "scd" . $nb++;
 	}
     }
     @l;
-- 
cgit v1.2.1