diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-10-16 20:28:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-10-16 20:28:01 +0000 |
| commit | 4bb674f1003f97776175b2b1fd08d55847131a9e (patch) | |
| tree | ec8d61601553d17e86a6c01824e0f97d8890cf53 /perl-install | |
| parent | 5c973ec8b931c0679cc3ed8667469578b9da4023 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/detect_devices.pm | 7 |
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; |