From b707231329f40f0537da5a7a8a6033cf8bb8fbf5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 2 Jan 2000 21:45:04 +0000
Subject: no_comment

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

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index cea04aebc..f5deb81d6 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -104,6 +104,9 @@ sub getIDE() {
     @idi;
 }
 
+#- do not work if ide-scsi is built in the kernel (aka not in module)
+sub getIDEBurners() { uniq map { m!ATAPI.* CD(-R|/RW){1,2} ! ? /(\w+)/ : () } syslog() }
+
 sub getCompaqSmartArray() {
     my @idi;
     my $f;
-- 
cgit v1.2.1