summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-06-16 12:22:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-06-16 12:22:52 +0000
commitfdea217b2ca6af2ba7d3e1dd20ae834de21d5ce3 (patch)
tree25a25ff0a31430b0ee06ddcd3d1e1ad680168448 /perl-install/detect_devices.pm
parentad824ff22cc3f0e1c03cd37fd7f791312a1468d7 (diff)
downloaddrakx-fdea217b2ca6af2ba7d3e1dd20ae834de21d5ce3.tar
drakx-fdea217b2ca6af2ba7d3e1dd20ae834de21d5ce3.tar.gz
drakx-fdea217b2ca6af2ba7d3e1dd20ae834de21d5ce3.tar.bz2
drakx-fdea217b2ca6af2ba7d3e1dd20ae834de21d5ce3.tar.xz
drakx-fdea217b2ca6af2ba7d3e1dd20ae834de21d5ce3.zip
no_comment
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 98ebcd403..eb451923f 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -45,7 +45,7 @@ sub cdroms() {
my @l = grep { $_->{type} eq 'cdrom' } get();
if (my @l2 = getIDEBurners()) {
require modules;
- my ($nb) = modules::add_alias('scsi_hostadapter', 'ide-scsi') =~ /(\d*)/;
+ my $nb = first(modules::add_alias('scsi_hostadapter', 'ide-scsi') =~ /(\d*)/) + 1;
foreach my $b (@l2) {
log::l("getIDEBurners: $b");
my ($e) = grep { $_->{device} eq $b } @l or next;