diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-06-08 15:25:27 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-06-08 15:25:27 +0000 |
| commit | ad3541c3f289f4777ebea4bcd0a12954edfb9780 (patch) | |
| tree | e77eab63b966924068dd28d47da27dad10cab2d0 /perl-install | |
| parent | c19e2df9b8e24187136cff32125207ccf1888fa8 (diff) | |
| download | drakx-backup-do-not-use-ad3541c3f289f4777ebea4bcd0a12954edfb9780.tar drakx-backup-do-not-use-ad3541c3f289f4777ebea4bcd0a12954edfb9780.tar.gz drakx-backup-do-not-use-ad3541c3f289f4777ebea4bcd0a12954edfb9780.tar.bz2 drakx-backup-do-not-use-ad3541c3f289f4777ebea4bcd0a12954edfb9780.tar.xz drakx-backup-do-not-use-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.pm | 9 |
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. |