summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-10-06 16:19:58 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-10-06 16:19:58 +0000
commitc6ebdfbb16c2615e902b9a843608f4e293b03bc0 (patch)
tree5ed39784923c72370b3df819f3695d5e236092b8 /perl-install/detect_devices.pm
parent547cad45ce2a45fee5a42bb98145c3a6f443f33a (diff)
downloaddrakx-backup-do-not-use-c6ebdfbb16c2615e902b9a843608f4e293b03bc0.tar
drakx-backup-do-not-use-c6ebdfbb16c2615e902b9a843608f4e293b03bc0.tar.gz
drakx-backup-do-not-use-c6ebdfbb16c2615e902b9a843608f4e293b03bc0.tar.bz2
drakx-backup-do-not-use-c6ebdfbb16c2615e902b9a843608f4e293b03bc0.tar.xz
drakx-backup-do-not-use-c6ebdfbb16c2615e902b9a843608f4e293b03bc0.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 9a28f0624..250cf498f 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -43,7 +43,7 @@ sub ls120s() { grep { $_->{type} =~ /.d/ && isLS120Drive($_) } get(); }
sub usbfdus() { grep { $_->{type} =~ /.d/ && isUSBFDUDrive($_) } get(); }
sub cdroms() {
my @l = grep { $_->{type} eq 'cdrom' } get();
- if (my @l2 = grep { isBurner($_->{device}) } @l) {
+ if (my @l2 = IDEburners()) {
require modules;
modules::add_alias('scsi_hostadapter', 'ide-scsi');
my $nb = 1 + max(-1, map { $_->{device} =~ /scd (\d+)/x } @l);