From fdc0a227e05fb6b517432208d3af98ebb00e491e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 20 Sep 2007 13:22:11 +0000
Subject: fix listing DVD/CD as them and as unknown (#33366)

---
 perl-install/harddrake/data.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/harddrake')

diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index 0ef9f03e6..8d5c50637 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -97,7 +97,7 @@ our @tree =
       string => N("CDROM"),
       icon => "cd.png",
       configurator => "",
-      detector => sub { grep { !(detect_devices::isBurner($_) || detect_devices::isDvdDrive($_)) } &detect_devices::cdroms },
+      detector => sub { f(grep { !(detect_devices::isBurner($_) || detect_devices::isDvdDrive($_)) } &detect_devices::cdroms) },
       checked_on_boot => 1,
       automatic => 1,
      },
@@ -107,7 +107,7 @@ our @tree =
       string => N("CD/DVD burners"),
       icon => "cd.png",
       configurator => "",
-      detector => \&detect_devices::burners,
+      detector => sub { f(detect_devices::burners()) },
       checked_on_boot => 1,
       automatic => 1,
      },
@@ -117,7 +117,7 @@ our @tree =
       string => N("DVD-ROM"),
       icon => "cd.png",
       configurator => "",
-      detector => sub { grep { ! detect_devices::isBurner($_) } detect_devices::dvdroms() },
+      detector => sub { f(grep { ! detect_devices::isBurner($_) } detect_devices::dvdroms()) },
       checked_on_boot => 1,
       automatic => 1,
      },
-- 
cgit v1.2.1