From ad3541c3f289f4777ebea4bcd0a12954edfb9780 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 8 Jun 2001 15:25:27 +0000
Subject: fixed fix for isBurner as it does not run on SCSI device.

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index ab4488f45..03d90cda2 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -71,8 +71,13 @@ sub floppy { first(floppies()) }
 #- example ls120, model = "LS-120 SLIM 02 UHD Floppy"
 
 sub isBurner { 
-    my $f = tryOpen($_[0]{device}); #- SCSI burner seems to be detected this way.
-    $f && c::isBurner(fileno($f));
+    my $dev = $_[0]{device};
+    if (my($nb) = $dev =~ /scd (.*)/x) {
+	grep { /^(scd|sr)$nb:.*writer/ } syslog();
+    } else {
+	my $f = tryOpen($dev); #- SCSI burner are not detected this way.
+	$f && c::isBurner(fileno($f));
+    }
 }
 sub isDvdDrive {
     $_[0]{info} =~ /DVD/; #- SCSI DVD seems not to be detected correctly, so use another probe after.
-- 
cgit v1.2.1