From dbb92fc24abd933eff171909db38d78e1d2f40c6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 28 Feb 2000 17:46:52 +0000
Subject: no_comment

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

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 29269cbbd..1384ed74d 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -39,8 +39,9 @@ sub zips() { grep { $_->{type} eq 'hd' && isZipDrive($_) } get(); }
 sub cdroms() { 
     my @l = grep { $_->{type} eq 'cdrom' } get(); 
     my $nb = $modules::scsi; #- this is gross!
-    foreach (getIDEBurners()) {
-	my ($e) = grep { $_->{device} eq $_ } @l or next;
+    foreach my $b (getIDEBurners()) {
+	log::l("getIDEBurners: $b");
+	my ($e) = grep { $_->{device} eq $b } @l or next;
 	$e->{device} = "scd" . $nb++;
     }
     @l;
-- 
cgit v1.2.1