summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-10-16 20:28:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-10-16 20:28:01 +0000
commit4bb674f1003f97776175b2b1fd08d55847131a9e (patch)
treeec8d61601553d17e86a6c01824e0f97d8890cf53 /perl-install/detect_devices.pm
parent5c973ec8b931c0679cc3ed8667469578b9da4023 (diff)
downloaddrakx-4bb674f1003f97776175b2b1fd08d55847131a9e.tar
drakx-4bb674f1003f97776175b2b1fd08d55847131a9e.tar.gz
drakx-4bb674f1003f97776175b2b1fd08d55847131a9e.tar.bz2
drakx-4bb674f1003f97776175b2b1fd08d55847131a9e.tar.xz
drakx-4bb674f1003f97776175b2b1fd08d55847131a9e.zip
(cdroms): fix the setting of scdX for ide burners
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm7
1 files changed, 4 insertions, 3 deletions
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;