From 22ab0fd263abdd83770015718b1fef2713962042 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 23 Mar 2012 19:50:59 +0000
Subject: fix detecting bluetooth devices

(spot by perl_checker)
---
 perl-install/harddrake/data.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/harddrake/data.pm')

diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index cbc43d8be..76ba48531 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -384,7 +384,7 @@ our @tree =
       string => N("Bluetooth devices"),
       icon => "hw_network.png",
       configurator => "",
-      detector => sub { f(detect_devices::probe_category('bus/bluetooth')), f(grep { $_->{description} =~ /Bluetooth Dongle/ } @$devices) },
+      detector => sub { f(detect_devices::probe_category('bus/bluetooth')), f(grep { $_->{description} =~ /Bluetooth Dongle/ } @devices) },
       checked_on_boot => 1,
      },
 
-- 
cgit v1.2.1