From c78e397eaf2b733331d2930436eef2434cbac9a5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 28 Apr 2009 13:10:24 +0000
Subject: fix detecting scanners

---
 perl-install/NEWS              | 2 ++
 perl-install/harddrake/data.pm | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 19c6b9803..8c677810c 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- harddrake
+  o fix detecting scanners
 - scannerdrake:
   o do not reject scanners handled by 'usbcore' driver
 
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index 9ae7ea958..d612f9084 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -530,7 +530,7 @@ our @tree =
       icon => "scanner.png",
       configurator => "$sbindir/scannerdrake",
       detector => sub { 
-         require scanner; f(map { $_->{drakx_device} } f(scanner::detect()));
+         require scanner; f(map { $_->{val}{drakx_device} } f(scanner::detect()));
       },
       checked_on_boot => 0,
      },
-- 
cgit v1.2.1