summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-06-08 15:25:27 +0000
committerFrancois Pons <fpons@mandriva.com>2001-06-08 15:25:27 +0000
commitad3541c3f289f4777ebea4bcd0a12954edfb9780 (patch)
treee77eab63b966924068dd28d47da27dad10cab2d0 /perl-install
parentc19e2df9b8e24187136cff32125207ccf1888fa8 (diff)
downloaddrakx-ad3541c3f289f4777ebea4bcd0a12954edfb9780.tar
drakx-ad3541c3f289f4777ebea4bcd0a12954edfb9780.tar.gz
drakx-ad3541c3f289f4777ebea4bcd0a12954edfb9780.tar.bz2
drakx-ad3541c3f289f4777ebea4bcd0a12954edfb9780.tar.xz
drakx-ad3541c3f289f4777ebea4bcd0a12954edfb9780.zip
fixed fix for isBurner as it does not run on SCSI device.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm9
1 files 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.